Var f,n,i:integer;
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.
1) I=(1024*8*64*64)/(8*1024*1024)=4 Мб
2) I=(512*16*64*64)/(8*1024*1024)=4 Мб
424 - Может получится из двух чисел 222
151 - не пятеричное число
4010 - 4<10 а по условию в порядке убывания
1004 - Может получится из чисел 302 и 222
411 - Может получиться из чисел 210 и 201
4210 - 4<10 а по условию в порядке убывания
Ответ 3 числа.
Потому что ее употребляют в различных коммуникациях.