Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.(while в паскале)
Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их возрастания, а также количество N этих чисел.(while в паскале)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program PrintNumbersBetweenAandB;
var
A, B, N, i: integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B (B должно быть больше A): ');
readln(B);
N := 0;
i := A;
while i <= B do
begin
writeln(i);
N := N + 1;
i := i + 1;
end;
writeln('Количество чисел между A и B: ', N);
end.