Регистрация
sviridovaliza19
17.05.2021 07:30
Информатика
Есть ответ 👍

F123основание16- 49основание16
мне !

256
321
Посмотреть ответы 1

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

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.

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