Написать программу которая выводит все двузначные числа у которых сумма цифр равна числу введенных с клавиатуры.

Question

Гораций

11 сентября, 16:01

+5

Ответы (1)

Знаете ответ?

Мая · Answer 1

Program zadacha;

var i, s:integer;

begin

read (s) ;

for i:=10 to 99 do begin

if (((i mod 10) + (i div 10)) = s) then

writeln (i) ;

end;

end.