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