Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
2^40бит=2^40/2^33ГБайт=2^7Гбайт=128Гбайт
Тип, объём, цена тип это оперативная или обычная, а так же ddr2 или 3, с EEC или без и т.д.
var
a,b:integer;
begin
readln(a);
readln(b);
writeln(a div b);
writeln(a mod b);
end.