Знайти кількість парних цифр у числі використовуючи цикл "while.....do" у паскаль Найти количиство четных цифр в числе используя цикл "while.....do" в паскаль

Знайти кількість парних цифр у числі використовуючи цикл "while.....do" у паскаль Найти количиство четных цифр в числе используя цикл "while.....do" в паскаль
Гость
Ответ(ы) на вопрос:
Гость
Var A,N:integer; Begin WriteLn('Введите целое число'); Read(A); N:=0; While A>0 do    Begin    if A mod 2 = 0 then N:=N+1;    A:=A div 10;    End; WriteLn(N); End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы