I = 64*64*16*256 - в битах
I = (64*64*16*256)/8 - в байтах
I = (64*64*16*256)/(8*1024) - в Кбайтах
I = (64*64*16*256)/(8*1024*1024) = 2 - в Мбайтах.
Мёд-вкусный липкий ароматный густой
1
var a,b:integer;
begin
readln(a,b);
if a>b then
write(a+b);
if b>a then
write(b-a);
if a=b then
write(ab);
end.
2
type mas=Array [1..15] of integer;
var i:integer;
a:mas;
begin
randomize;
for i:=1 to 15
do begin
A[i]:=random(-10,10);
if A[i]<0 then
write(i,' ');
end;
end.
Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.