Регистрация
POMOGIf
12.08.2022 02:00
Информатика
Есть ответ 👍

Даны два числа а и в. подсчитайте количество натуральных чисел на отрезке от а до в, сумма цифр которых четна. нужна программа в паскале

206
363
Посмотреть ответы 2

Ответы на вопрос:

TheNekyTyan
TheNekyTyan
4,4(5 оценок)
Var b, a, d1, d2, i, j: integer;     c: string; begin       readln(a, b);             for i : = a to b do       begin           d1 : = 0;           c : = inttostr(i);           for j : = 1 to length(c) do               d1 : = d1 + strtoint(c[j]);           if (d1 mod 2 = 0) then inc(d2);       end;       writeln(d2); end.
daniilkrkrahmal
daniilkrkrahmal
4,7(68 оценок)

0, так как 1^0 = 0, а значит при любом значении a будет 0.

Популярно: Информатика