Ответы
Ответ дал:
2
Ответ:
Объяснение:
Работает с любым числом.
var x,y,z,mx,mn:integer;
begin
readln (x);
while x>0 do begin
y:=x mod 10;
x:=x div 10;
if y=2 then
z+=1;
end;
writeln(z);
end.
edwardfursov345:
Это точно правильно?
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад