Program mas2;
uses crt;
var
a:array[1..5] of integer;
b:array[1..5] of integer;
t,i,m1,m2:integer;
begin
randomize;
clrscr;
writeln('Vvedite T');
readln(t);
for i:=1 to 5 do
a[i]:=random(t+1);
b[i]:=random(t+1);
if a[i]<t then m1:=m1+1
else
if b[i]<t then m2:=m2+1;
if m1>m2 then
begin
for i:=1 to 5 do
write(' ',a[i])
end
else
for i:=1 to 5 do
write(' ',b[i]);
writeln;
end.
Может не совсем красиво, но зато работает)))
В байте 8 бит, в килобайте 1024 байта, в МБ 1024 КБ и т.д.
614400 бит / 8 = 76800 байт
76800 байт / 1024 = 75 килобайт
75 / 1024 = 0.073 МБ (приблизительно)
614400 бит 76800 байт 75 КБ 0.073 МБ
4194304 бит 534388 байт 512 КБ 0.5 МБ
2097152 бит 262144 байт 256 КБ 0.25 МБ
33554432 бит 4194304 байт 4096 КБ 4 МБ
<span>b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
</span><span>d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр </span>
Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.
