Урок 10.1 Задание 1

Primary tabs

Submitted by pboldov on Thu, 01/12/2023 - 14:01

Выведите на экран, все числа N единиц (число задает пользователь)

program Pr10_1_1;

var i:integer;

begin
writeln('Введите число: ');
readln(i);

for i:=1 to i do
    write(1);

readln();
end.

Консоль:

Введите число:
10
1111111111