Вопрос школьника по предмету Информатика
Даны два целых числа А и В. Вывести в порядке возрастания все целые числа, расположенные между А и В (не включая сами числа А и В), а также сумму этих чисел.
Ответ учителя по предмету Информатика
var a,b,sum:integer; // Объявление переменных
begin
writeln(‘Введите a, b’); readln(a,b); //Ввод a,b
for a := a + 1 to b — 1 do begin // Цикл, который будет идти с a+1 до b-1
write(a + ‘ ‘); // Вывод возрастающего числа
sum := sum + a; // Суммируем
end;
writeln();
writeln(‘Сумма: ‘ + sum); // Выводим сумму
end.
Похожие вопросы от пользователей
2)sin 2x=1