Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется…

Question

34

Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется при умножении на 2

в избранное ссылка

Знаете ответ?

helixandr · Accepted Answer

34

helixandr

15 апреля 2023

Var i,s: integer; begin for i: =10 to 99 do begin s: =0; s: =i div 10+i mod 10; if s*2=s then writeln (i) end; end.

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

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