Вот держите:
var a,k:integer;
begin
repeat
readln(a);
if a mod 3 = 0 then inc(k);
until a=0;
writeln(k-1);
end.
Блок - схема, видимо вроде такого вам надо )
1) Высчитаем суммарное количество символов: 32*64*8=16384 (символа)
2) Высчитаем суммарное количество бит: 16*16384=262144 (бит)
3) Переводим биты в байты (1 байт = 8 бит): 262144/8=32768 (байт)
4) Переводим байты в килобайты (1 КБ = 1024 Б): 32768/1024=32 (килобайта)
Ответ: <u><em>32 КБ</em></u>
Program n1;
var i,sum,a,k: integer;
begin
sum:=0;
k:=0;
for i:=1 to 20 do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
write(sum/k);
end.
Это задача по комбинаторике
всего у нас 10 букв, но главное что они повторятся
У - 2
Т - 1
Р - 1
Ы - 1
И - 2
К - 1
Б - 2
Далее вычисляем кол-во перестановок с повторениями. (Формула в приложении с обьяснением из вики)
N = 10! / (2! * 2! * 2! * 1! * 1! * 1! * 1! ) = 10! / 8 = 453 600