ЗАДАЧА 3f. Вывести на экран первые n целых чисел.

ЗАДАЧА 3f. Вывести на экран первые n целых чисел.

var i: integer; begin writeln(‘n='); readln(n); for i: =1 to 10 do writeln (i); end.

var i, n: integer; begin i: = 1; writeln(‘n='); readln(n); while i < = n do begin writeln(i); i: = i + 1 end; end.

ЗАДАЧА 4f. Вычислить все значения функции y = x 2 на интервале 0< =X< =6 (шаг 1)

var

x, y: integer;

begin

for x: =0 to 6 do

begin

y: =x*x;

writeln (‘х =’, x, ‘ y= ‘, y);

end;

end.

ЗАДАЧА 5f. Cумма чисел из интервала 1.. n

var i, n, s: integer; begin writeln('n= '); readln(n); s: =0; for i: =1 to n do s: =s+ i; writeln ('s= ', s); end.	var i, n, s: integer; begin writeln(‘n=’); readln(n); s: = 0; i: = 1; while i < = n do begin s: = s + i; i: = i +1; end; writeln (‘сумма=’, s); end.
ЗАДАЧА 6f Произведение чисел из интервала 1.. n - (n! факториал ) var i, n, p: integer; begin writeln('n= '); readln(n); p: =1; for i: =1 to n do p: =p* i; writeln ('p= ', p); end.	var i, n, p: integer; begin writeln(‘n=’); readln(n); p: = 1; i: = 1; while i < = n do begin p: = p * i; i: = i +1; end; writeln (‘p=’, p); end.