Всё сделано, принимайте работу)))
Объяснение:
Задача №1:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 8 do
begin
a[i]:= 4 + i*5;
writeln(i+1,'. x = ',a[i],' -- ',a[i]*a[i]);
end;
end.
Задача №2:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 9 do
begin
a[i]:= 3 + i*3;
writeln(i+1,'. x = ',a[i],' -- S = ',a[i]*a[i]*Pi:0:4);
end;
end.
Задача №3:
var x,i,a :integer;
begin
writeln('x = ');
readln(x);
a:= 1;
for i:= 1 to x do
begin
a:= a*i;
end;
writeln('x! = ',a);
end.
var a,x,k:integer;
begin
write('Введите натуральное число: ');
read(a);
x:=a;
k:=0;
while (x>0) do
begin
if (x mod 2=0) then k:=k+1;
x:=x div 10;
end;
writeln('Количество четный цифр= ',k);
end.