Информатика, опубликовано 2018-08-22 22:26:40 by Гость
Помогите написать программу на Паскале: Найдите количество четных цифр в десятичной записи числа
Ответ оставил Гость
Program znanija;
uses crt;
var x,k:integer;
begin
clrscr;
writeln( Введите число: );
Readln(x);
while x>1 do begin
if x mod 2=0 then k:=k+1;
x:= x div 10;
end;
writeln( Количество чётных чисел в числе= ,k );
Readln;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на