Даны два целых числа A и B. Вывести в порядке возрастания все целые числа, расположенные между A и B, а также количество N этих чисел.Даны два целых числа A и B. Вывести в порядке возрастания все целые числа, расположенные между A и B, а также количество N этих чисел.
huston81:
какой язык?
Азербайджанский
pascal
Ответы
Ответ дал:
1
Ответ:
Pascal:
var
a, b: integer;
begin
Write('Введите A = '); ReadLn(a);
Write('Введите B = '); ReadLn(b);
if a > b then swap(a,b);
WriteLn('Количество чисел между A и B равно ', b - a - 1);
a := a + 1;
while a < b do
begin
WriteLn(a);
a := a + 1;
end;
end.
Объяснение:
Похожие вопросы
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад