В 7сс семь цифр: 0 1 2 3 4 5 6
в 9сс девять цифр: 0 1 2 3 4 5 6 7 8
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
Readln(a);
writeln(round(a * 4),' ',round(sqr(a)));
Защита информации...
профессии-программист,кибернетик
Var s, n: integer;
begin
s := 2;
for n := 2 to 5 do
s := n + s * 2;
write(s);
end.
Ответ
73