Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Var i,k:integer;
s:real;
begin
for i:=0 to 100 do begin
s:=s+i;
k:=k+1;
end;
s:=s/k;
writeln (s:5:2);
end.
Program q193766551;var i, s: Integer;begin s := 0; for i := 2 to 100 do Inc(s, i * Integer(not Odd(i))); WriteLn(s);end.
Var n,m,q,i:integer;f:boolean;
begin
read(m,n);
f:=true;
while f=true do begin
f:=false;
if m>n then q:=n else q:=m;
for i:=2 to q do begin
if (m mod i = 0) and (n mod i = 0) then begin m:=m div i;n:=n div i;f:=true;end;
end;
end;
writeln(m,'/',n);
end.
По идее так, не проверял.
V=I*x*y
N=4 значит I =2
V=2*640*200 бит=32000 байт=250 Кбит