Полный код на паскале
var
i: integer;
s: real;
begin
s := 0;
for i := 12 to 2001 do
s := s + i;
writeln(s);
s := 1;
for i := 2 to 201 do
s := s * i / (i + 2);
writeln(s);
s := 1;
for i := 1 to 33 do
if i mod 3 = 0 then s := s * 2;
writeln(s);
s := 2;
i := 10;
while i <= 13 do
begin
s := s + 11;
i := i + 1;
end;
writeln(s);
end.
Вывод программы и ответы соответственно
2002935
0.000146320050724284
2048
46
32 Кбайт= 32*1024*8=262144 бит(1 Кбайт=1024 байт, 1 байт= 8 бит)
262144:4096=64 секунды.
И 512*64=32768 бит
32768 бит= 4096 байт
Const
n = 10;
var
s, i: integer;
a: array[1..n] of integer;
begin
Randomize;
for i := 1 to n do
begin
a[i] := random(60) - 30;
write(a[i], ' ');
if a[i] > 0 then
s := s + a[i];
end;
writeln;
writeln(s);
end.
Var a,b,c:integer;
begin
Readln(a,b,c);
Writeln(max(max(a,b),c));
end.