Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
3.5 кб переводим в биты=3,5*1024=34304 байта
в печатном символе 8 бит как раз 1 байт
Ответ 34304 символа
Program z1;
var a:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
readln a[i];
if a[i] mod 2 =0 then k:=k+1;
end;
wreteln('четных',k);
end.
Взвесить с одной стороны 2 и с другой, с какой стороны легче взвешивать Ещё раз с одной стороны 1 и с другой какая сторона легче та монета фальшивая