Вывести на экран двузначные числа и их количество, у которых при умножении на 2 сумма цифр увеличивается на 5. Через цикл for нужно решить

Question

Информатика

Антоний

4 ноября, 05:20

Вывести на экран двузначные числа и их количество, у которых при умножении на 2 сумма цифр увеличивается на 5. Через цикл for нужно решить

+1

Ответы (1)

Знаете ответ на вопрос?

Гера · Answer 1

Program proga; var i, m, k, s1, s2:integer; beginfor i:=10 to 99 do begin m:=i; s1: = m mod 10 + m div 10; k:=i*2; s2: = k mod 10 + k div 10; if (s2 - s1 = 5) then write (i, ', ') ; end; end.