Предмет: Информатика,
автор: 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
Внимание! Если программа не работает, обновите версию!
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.Можно ли заменить эти строки чем-то другим?
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Математика,
автор: Arbizik996
Предмет: Русский язык,
автор: Аноним
Предмет: Русский язык,
автор: dariaborisova1607
Предмет: Математика,
автор: Billnovikov12345