Предмет: Информатика, автор: AndreyNikitin7

Напишите программу: Посчитать количество четных цифр в числе, введенном с клавиатуры. pascal

Ответы

Автор ответа: Аноним
1
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,k):=(Abs(ReadInteger('n=')),0);
  if n=0 then k:=1
  else
    while n>0 do begin
      if (n mod 10).IsEven then k+=1;
      n:=n div 10
      end;
  Writeln('Четных цифр: ',k)
end.

Пример
n= -623451
Четных цифр: 3

AndreyNikitin7: Я не совсем понимаю что обозначает .IsEven и k+=1.Можно ли заменить эти строки чем-то другим?
Автор ответа: VIPDiMaNPRO
1
var
a, b, k : integer;
begin
k := 0;
write('введите число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
if b mod 2 = 0 then inc(k);
a := a div 10
Writeln ('Чётных: ', a);
end;
end.

VIPDiMaNPRO: исправил
Похожие вопросы