Задать вопрос
7 апреля, 01:33

Даны два целых

числа A и B (A < B). Вывести все целые числа,

расположенные между данными числами (включая сами эти числа), в порядке их

возрастания (убывания), а также количество N этих чисел (с использованием

оператора for, while, repeat)

+3
Ответы (1)
  1. 7 апреля, 04:44
    0
    Var A, B : integer; procedure Fo (A, B:integer) ; var i : integer; begin for i:=A to B do write (i,' ') ; writeln ('N = ', B-A+1) ; end; procedure Whil (A, B : integer) ; var n:integer; begin n:=0; while (A < = B) do begin write (A,' ') ; Inc (A) ; Inc (n) ; end; writeln ('N = ', n) ; end; procedure Repea (A, B : integer) ; var n : integer; begin n:=0; repeat write (A,' ') ; inc (A) ; Inc (n) ; until (A>B) ; write ('N = ', n) ; end; begin Readln (A, B) ; Fo (A, B) ; Whil (A, B) ; Repea (A, B) ; end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны два целых числа A и B (A < B). Вывести все целые числа, расположенные между данными числами (включая сами эти числа), в порядке их ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы