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

Question

Информатика

Сергуля

3 августа, 01:07

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

+1

Ответы (2)

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

Агнесса · Answer 1

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.

Уля · Answer 2

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.