Задание:
СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛЕ. Агент 007 узнал, что в секретном сейфе трехзначный код, в котором все три цифры разные. При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
Решение:
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.
Знаете другой ответ?