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