Написать программу с помощью цикла for. Из чисел от 10 до 99 вывести те, сумма которых равна N. N-вводится с клавиатуры. Паскаль.
Написать программу с помощью цикла for. Из чисел от 10 до 99 вывести те, сумма которых равна N. N-вводится с клавиатуры. Паскаль.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program SumNumbers;
var
N, i, j, sum: integer;
begin
write('Введите число N: ');
readln(N);
writeln('Числа от 10 до 99, сумма которых равна ', N, ':');
for i := 10 to 98 do
begin
for j := i + 1 to 99 do
begin
sum := i + j;
if sum = N then
writeln(i, ' + ', j, ' = ', N);
end;
end;
end.