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

Question

Розалия

15 февраля, 03:08

+3

Ответы (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.