Даны два целых числа A и B. Вывести в порядке возрастания все целые числа, расположенные между A и B, а также количество N этих чисел.Даны два целых числа A и B. Вывести в порядке возрастания все целые числа, расположенные между A и B, а также количество N этих чисел.
huston81:
какой язык?
Азербайджанский
pascal
Ответы на вопрос
Ответил huston81
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 год назад
Русский язык,
1 год назад
Алгебра,
2 года назад
Другие предметы,
2 года назад
Информатика,
7 лет назад