Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
I = 1 байт.
тогда I = k*i или I = k/
k = 76
I(бит) = 76 * 8 = 608 бит
ответ: 2
4096 Кбайт / (1 * 1024 Кбайт / 8 сек) = 32 сек
Var m: integer;
begin
readln(m);
write (m,' кг содержит ', m div 1000, ' полных тонн');
end.