Дано трехзначное число. найти все трехзначные числа равные среднему арифметическому цифр данного числа.паскаль с употреблением подпрограмм.

139

329

Посмотреть ответы 2

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

sonashkumatova

Информатика

4,6(50 оценок)

Var num, sum, a, b, c: integer; function isequal(sum1, sum2: integer): boolean; begin result : = (sum1 = sum2) end; begin read(num); sum : = num div 100 + (num div 10) mod 10 + num mod 10; for a : = 1 to 9 do for b : = 0 to 9 do for c : = 0 to 9 do if isequal(sum, a + b + c) then writeln(a*100 + b*10 + c); end.