Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

For3. даны два целых числа А и В (А<В). Вывести в порядке убывания все целые числа, расположенные между А и В (не включая числа (А и В), а также количество N этих чисел.

Ответ оставил Гость

Var a, b: integer;
begin
write(Введите a, b>>);
read(a, b);
if abegin
while (b-1>a) do
begin
b:=b-1;
write (b, );
end;
end
else write(Неверные условия)
end.

Оцени ответ