Оператор цикла с постусловием

19. Вывести на экран первые N натуральных чисел в порядке возрастания. N ввести с клавиатуры.

program ss;

uses crt;

var i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

writeln('i=',i);

Repeat

i:=i+1;

writeln('i=',i);

Until (i>=n);

readln;

END.

20. Вывести на экран таблицу квадратов для первых N натуральных чисел. N ввести с клавиатуры.

program ss;

uses crt;

var i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

Repeat

writeln('Для i=',i,' квадрат=',sqr(i));

i:=i+1;

Until (i>n);

readln;

END.

21. Вывести сумму первых N целых положительных чисел. N ввести с клавиатуры.

program ss;

uses crt;

var s,i,n:integer;

BEGIN

clrscr;

writeln('Введите n');

readln(n);

i:=1;

Repeat

s:=s+i;

i:=i+1;

Until (i>n);

writeln('Сумма чисел от 1 до ',i-1,' = ',s);

readln;

END.

22. Вывести на экран таблицу значения функции y = 5 x² – 4 x + 7 в диапазоне от –8 до 8 с шагом 0,5

program tabl;

uses crt;

var b,i:integer;

r,a,y,h:real;

BEGIN

clrscr;

a:=-8; b:=8; r:=a;

Repeat

Y:=5 * Sqr(r) - 4*r + 7;

writeln(' ',r:2:1,' - ',y:3:2,' ');

r:=r+0.5;

Until (r=b);

y:=5 * Sqr(b) - 4*b + 7;

writeln(' ',b,' - ',y:3:2);

readln;

END.