Program n1;
var a,sum,i: integer;
begin
sum:=0;
for i:=1 to 47 do
begin
readln(a);
if (a>0) and (a mod 3=0) then sum:=sum+a;
end;
writeln(sum);
end.
33*40*64*8бит на символ = скоко аа
вес в битах
(кои-8 ето 8 бит на символ не 8символнасимвол)
Мне кажется, что это слово <u>ФРАГМЕНТ</u>
1) 1 байт - 8 бит. 10 мегабит : 8 бит = 10000000 : 8 = 1250000 символов в секунду
2) 1 Гбайт = 1024 Мбайт = 1048576 Кбайт = 1073741824 Байт.
1073741824 / 1250000 = 859 сек = 14.32 мин = 15 мин
Var
s: string;
begin
readln(s);
insert(',', s, Pos(' ', s));
writeln(s);
end.