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

Question

Информатика

Сева

14 июля, 14:14

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

+3

Ответы (2)

Знаете ответ на вопрос?

Дроня · Answer 1

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.

Флорида · Answer 2

Var

i, a, b: integer;

begin

for i:=10 to 99 do

begin

a : = i div 10 + i mod 10;

if (2*i) > = 100 then b: = 2*i div 100 + (2*i-100) div 10 + 2*i mod 10

else b: = 2*i div 10 + 2*i mod 10;

if a=b then write (i:4) ;

end;

readln;

end.