Регистрация
LEXUS2705
21.06.2020 02:10
Информатика
Есть ответ 👍

Найти произведение умножения всех чисел, делимых на 3, начиная с 3 до 100. Вы можете использовать цикл WHILE.

149
391
Посмотреть ответы 1

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

alesaastudinap0dbun
alesaastudinap0dbun
4,8(14 оценок)

var i: longint; function sum(c: integer): integerbegin      sum : = c mod 10 + c div 10 mod 100 + c div 100; endbegin      for i : = 1 to 999999 do              if (sum(i div 1000) = sum(i mod 1000) ) then                        writeln(i); end

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