Напишите программу, которая запрашивает у пользователя имена его друзей до тех пор, пока он не введет единицу. Затем выведите на экран список со всеми именами, кроме первого.
Ответы
Ответ дал:
0
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
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад