Найдите и выведите на экран все двузначные числа, сумма цифр которых не меняется при умножении на 2
Answers & Comments
yuliagal
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.
0 votes Thanks 4
PuerDeSatan
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.
Answers & Comments
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.
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.