Написать программу в Паскале, которая вычислит все двузначные числа,сумма цифр которых равна 12. Только , как можно проще. Алгоритм вычисления пожалуйста пришлите.
Написать программу в Паскале, которая вычислит все двузначные числа,сумма цифр которых равна 12. Только , как можно проще. Алгоритм вычисления пожалуйста пришлите.
Гость
Ответ(ы) на вопрос:
ГостьVar
a,a1,a2:integer;
Begin a:=10;
Write('Двузначные числа, сумма цифр которого равна 12: ');
while a<100 do
begin
a1:=a mod 10;
a2:=a div 10;
if (a1+a2)=12 then write(a,', ');
a:=a+1;
end;
End.
Не нашли ответ?
Похожие вопросы