Составьте программу к задаче : Вывести 20 первых чисел так чтобы каждое последующее было...

Question

Составьте программу к задаче : Вывести 20 первых чисел так чтобы каждое последующее было на меньше предыдущего . Первое число 25

Comments

На сколько меньше?

---

на 1

Answer 1

Var i:integer;
begin
for i:=25 downto 6 do writeln(i)
end.

Comments

это правильно? Почему down 6?

---

to - у

---

downto - уменьшает переменную на 1

---

to - увеличивает переменную на 1

---

при использовании цикла с заданным числом повторений (for)

---

количество повторений ( циклов) считается 25-6+1 =20 (так как надо 20 чисел)