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.
Ctrl+A - выделить документ целиком
Ctrl+C - копировать выделенный файл
Ctrl+X - вырезать выделенный фрагмент
Ctrl+V - вставить из буфета обмена копированный/вырезанный фрагмент
Ты наверное имеешь в виду Нельзя писать оскорбления, мат, посылать плохие фотографии и так далее?
Форма представления информации
да могут норазные примеры например волны итд