Составьте программу запрашивающую у пользователя его имя и целое число N, а затем выводящую фамилию N раз на экран.
Пример работы:
Окно вывода
Как вас зовут? >>Вася
Сколько раз вас прославить? >>3
Вася великий программист
Вася великий программист
Вася великий программист
Помогите я уже не знаю че делать (сделать надо через паскаль)
Answers & Comments
program z1;
var b, i: integer;
a: string;
begin
writeln('Как вас зовут?');
readln(a);
writeln('Сколько раз вас прославить?');
readln(b);
for i := 1 to b do
Writeln(i, ']', a, '-великий программист');
end.