Ответы
Ответ дал:
0
var x,z,k:integer;begin
writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.
writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.
Ответ дал:
0
pascal
Вас заинтересует
1 год назад
6 лет назад
6 лет назад