Найдите натуральные числа отрезка, суммы цифр которых являются четным числом

@scply · Регистрация: 14.12.2020

Author24 — интернет-сервис помощи студентам

Дан натуральный отрезок чисел [A, B]. Найдите те числа этого
отрезка, суммы цифр которых являются четным числом

Добавлено через 9 минут

Pascal

var
a, b, i : integer;
begin
repeat
write('введите [a, b]: ');
readln(a, b)
until (a > 0) and (b > a);
write('числа промежутка  [', a, ',', b, '] четные:'); 
for i := a to b do
if i mod 2 = 0 then write(i:5)
end.

работает)

@JuriiMW · 14.05.2021, 04:10

Сообщение от scply

работает)

Но не правильно!

К примеру, число 11.
Сумма цифр равна 2, но ваша программа его не выведет никогда.

А число 12?
Сумма цифр равна 3, но ваша программа его выведет, если будет допустимый интервал.

Pascal

1 2	## var(a,b):=ReadInteger2; (a..b).Where(x->begin var s:=0;repeat s+=x mod 10;x:=x div 10;until x=0;Result:=s.isEven;end).Print

	14.05.2021, 04:10

Найдите натуральные числа отрезка, суммы цифр которых являются четным числом

Решение