Var
m: integer;
begin
for m:=12 downto 6 do
writeln (m*m*m);
readln;
end.
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
3.
var
a, b : integer;
begin
readln(a, b);
if ((a mod 10) mod 2 = 0) and ((b mod 10) mod 2 = 0) then writeln('Верно') else writeln('Не верно');
end.
4.
var
a : integer;
begin
readln(a);
if (a < 10000) and (a > 999) and (a mod 3 = 0) then writeln('Является') else writeln('не является');
end.
Рукописи не горят
Никакая причина не извиняет невежливость.