Консультация № 198257
14.04.2020, 17:42
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:

Составить программу, которая выводит числа из диапазона от 1000 до 1200, имеющие равные суммы крайних и средних цифр

Обсуждение

давно
Профессор
401888
1232
14.04.2020, 18:35
общий
это ответ
Здравствуйте, Ericsson!
[code lang=pascal]var a:integer;
begin
for a:=1000 to 1200 do
if a div 1000+a mod 10=a div 100 mod 10+a div 10 mod 10 then write(a,' ');
end.[/code]
Форма ответа