Напишите программу, которая получает с клавиатуры количество повторений и выводит столько же раз какое-нибудь сообщение. Пример: Сколько раз повторить? 3 Привет! Привет! Привет! Делать с помощью ПАСКАЛЯ АВС!!! С ПОМОЩЬЮ ОПЕРАТОРА WILE!
Var n,i: Integer; txt: String; begin writeln('Кол-во сообщений'); readln(n); writeln('Введите любой текст'); readln(txt); while ibegin writeln(i+1,'. ',txt); inc(i); end; end.
что значит строчка writeln(i+1,'. ',txt); и обязательно ли ее писать?
Да.
Вывод текста.
Var k,i:integer; begin write ('Введите количество повторений: '); readln (k); for i:=1 to k do writeln ('ПРИВЕТ!!!') end.