Ответ:
Объяснение:
program chet;
var S: integer;
St: string;
begin
S:=0;
WriteLn ('Введите строку, содержащую цифры :');
ReadLn(St);
for var i:=1 to length(St) do
if ( St[i]='0') or ( St[i]='2') or ( St[i]='4') or
( St[i]='6') or ( St[i]='8') then S:=S+1;
WriteLn( 'Четных цифр - ' , S);
ReadLn;
end.
Можно реализовать через строки, но вы видимо только начали проходить Паскаль, поэтому такой вариант ;-)
Дано:N=32 k=120 I=?
Решение I=i*k
32=2⁵ значит i = 5
I = 120*5=600бит = 75байт
50 МБайт - 1м30с=90с
х МБайт - ? 40с с упак/распак=13с
40-13=27(с - передача упак.док.)
х=50 МБайт * 27 с / 90с =15 МБайт
Ответ: 15 МБайт весит упакованный документ