Begin
var count := 0;
var sum := 0;
while True do
begin
var a := ReadInteger;
Assert(a <= 300);
count += 1;
Assert(count <= 100);
if a = 0 then
break;
if (a mod 4 = 0) and (a mod 10 = 8) then
sum += a;
end;
Writeln('Сумма чисел по предикату равна ', sum);
end.
1) K=m*n*s=32*64*10=20480 символов.
i=2 байта в Unicode.
I=K*i= 20480*2=40960 B.
2) 1MB = 1024*1024 B.
I= 1/512 MB = 2048 B.
i=I/K=2048/1024=2.
N=2^i=2^2=4 мощность алфавита.
1. 70
2. 203
Главное всё считать по порядку,удачи.
Я думаю,что ребята на соревнования приедут из 5 городов.
1)12
2)6,5
3)4
4)3
5)28,5
6)2,5