Создать цикл вывода 1000 чисел - Pascal ABC

Формулировка задачи:

Помогите создать цикл вывода 1000 последовательных чисел

Код к задаче: «Создать цикл вывода 1000 чисел - Pascal ABC»

textual
const n=1000;
var i:integer;
 
BEGIN
     i:=0;
     While (i<n) do
     begin
          Inc(i);
          WriteLn(i);
     end;
END.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ