var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
var
s : integer;
m : BigInteger;
begin
m := 1;
writeln('даны числа: 1..20');
for var i := 1 to 20 do begin
s := s+(i*i);
m := m*(i*i);
end;
writeln('сумма квадратов = ', s);
writeln('произведение квадратов = ', m);
end.
Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал
1 гб = 1024 мб
3.79 гб = 3881 мб