СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ

Question

СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ. Агент 007 узнал, что в секретном сейфе трехзначный код, в котором все три цифры разные. При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.

Answer 1

82

piter5

06 апреля 2023

Var a,b,c,d: integer; begind: =a+b*10+c*100; for d: =100 to 999 dobeginif b=a-c or b=c-a then writeln (d); end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить