Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.