Урок 10.1 Задание 1
Primary tabs
Выведите на экран, все числа N единиц (число задает пользователь)
program Pr10_1_1; var i:integer; begin writeln('Введите число: '); readln(i); for i:=1 to i do write(1); readln(); end.
Консоль:
Введите число: 10 1111111111
- Log in to post comments
- 292 reads