ПАСКАЛЬ!!! 1. Вывести ** экран числа 100, 96, 92, ..до последнего положительного...

Question

ПАСКАЛЬ!!!
1. Вывести на экран числа 100, 96, 92, ..до последнего положительного включительно.
2. Дано число. Если оно от 2 до 5 включительно, то увеличить его на 10. Если оно от 7 до 40, то уменьшить на 100. Если оно не более 0 или более 3000, то увеличить в 3 раза (то есть умножить на 3). Иначе занулить это число.

Answer 1

Var i : Byte;
Begin
  For i:=25 downto 1 do Writeln(i*4);
end.

Var A : Integer;
Begin
  Readln(A);
  If (A<0) or (A>3000) then A:=A*3 else
   If (A>=7) and (A<=40) then A:=A-100 else<br>     If (A>=2) and (A<=5) then A:=A+10 else A:=0;<br>  Writeln(A);
end.

Comments

Спасибо большое!!! А вот по второй задаче, там "иначе занулить это число". По-моему Вы это пропустили, да?

---

А да, действительно - проглядел.

---

сейчас добавлю

---

bcghfdbk

---

исправил

---

Теперь точно огромное спасибо!!!!