Question

Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется при умножении на 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.