3художника кисточка карандаш и фломастер 3 рисунка по 1 алгоритму с разных слов-актёров прочитай алгоритм раскрась рисунок кисточки сделай рисунок карандаша и фломастера

117

158

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

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

Hacтяя

Информатика

4,7(28 оценок)

Да прикольные

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.