Напишите программу, которая запрашивает у пользователя имена его ...
Напишите программу, которая запрашивает у пользователя имена его друзей до тех пор, пока он не введет единицу. Затем выведите на экран список со всеми именами, кроме первого.
Есть ответ
12.12.2022
383
Ответ
program raf105;
var
friends: array of string;
i: integer;
begin
writeln('Вводие имена своих друзей по очереди');
writeln('Чтобы закончить введите 1');
repeat
inc(i);
setlength(friends,i);
readln(friends[i-1]);
until friends[i-1] = '1';
writeln('Список друзей начиная со второго:');
for i:=2 to i-1 do
writeln(friends[i-1]);
end.
PascalABC
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022