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

Question

Андроша

23 июля, 23:55

+2

Ответы (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.