Задание:
Напишите числа от 1 до n
Решение:
var i,n: integer; beginreadln (n); for i: =1 to n dowriteln (i); end.
Знаете другой ответ?
Напишите числа от 1 до n
var i,n: integer; beginreadln (n); for i: =1 to n dowriteln (i); end.
Знаете другой ответ?