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

Question

Эма

20 декабря, 20:08

+1

Ответы (1)

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

Кируха · Answer 1

Var

a, i:integer;

begin

write ('A=') ;

readln (a) ;

for i:=10 to 99 do

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

writeln (i) ;

end.