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 x2 – 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.