Напишите программку,выводящую на экран все отрицательные числа из диапазона (m;n)

Напишите программку,выводящую на экран все отрицательные числа из спектра (m;n)

Задать свой вопрос
1 ответ
Var m,n,k,i:integer;
begin
write('m, n: ');
readln(m,n);
if nlt;m then begin k:=m; m:=n; n:=k; end;
if mgt;=0
 then writeln('В спектре [',m,',',n,'] нет отрицательных чисел')
 else if ngt;0 then for i:=m to -1 do write(i,' ')
             else for i:=m to n do write(i,' ');
end.

Пример:
m, n: -5 2
-5 -4 -3 -2 -1 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт