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

Question

Ксеня

22 сентября, 02:42

+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.