Информатика (Pascal) : Составить программу для решения следующей задачи: Среди всех положительных трёхзначных чисел найти и выписать на экран те, у которых сумма крайних цифр совпадает с утроенной средней цифрой.

Question

Маруля

5 декабря, 20:23

+1

Ответы (1)

Знаете ответ?

Добромысл · Answer 1

Var a, b, c:byte;

Begin

For a: = 1 to 9 do

For b: = 0 to 9 do

For c: = 0 to 9 do

if a+c = 3*b then Write (a, b, c,' ')

End.