K = 40*64*2
i - 16 бит
I - ?
Реш.
I = K*i = 40*64*2*16 бит = (40*64*2*16)/8 байт = 40*8*2*16 байт = (40*8*2*16)/1024 Кбайт = сокращаешь получается 10 Кб
Var
A:longint;
Begin
WriteLn('Введите пятизначное число');
ReadLn(A);
Write('Произведение нечётных цифр = ',(A div 10000)*((A div 100) mod 10)*(A mod 10))
End.
Var n, k, c : integer;
Begin
Readln (n) ;
K:=0;
While c
Скинь текст пожалуйста просто задания не выполниться