Ответы
Ответ дал:
0
var
a, n : integer;
begin
write('введите число: ');
readln(a);
while a > 0 do begin
if a mod 10 = 2 then n += 1;
a := a div 10;
end;
writeln('двоек: ', n);
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
7 лет назад
7 лет назад
8 лет назад