Надо сделать номера 1-6.Даю 30 баллов

Question

Надо сделать номера 1-6.
Даю 30 баллов

---

Answer 1

Program p1;
var n, i: integer;
begin
    WriteLn('Введите n');
    ReadLn(n);
    for i := 1 to n do
    WriteLn(i);
end.

===============

program p2;
var n, i: integer;
begin
    WriteLn('Введите n');
    ReadLn(n);
    for i := n downto 1 do
    WriteLn(i);
end.

===============

program p3;
var n, i: integer;
begin
    WriteLn('Введите n');
    ReadLn(n);
    for i := 1 to n do
    if i mod 3 = 0 then WriteLn(i);
end.

===============

program p4;
var n, i: integer;
begin
    i := 1;
    WriteLn('Введите n');
    ReadLn(n);
    while i <= n do<br>    begin;
    if i mod 3 = 0 then WriteLn(i);
    i := i + 1;
    end;
end.

===============

program p5;
var n, i: integer;
begin
    WriteLn('Введите n');
    ReadLn(n);
    for i := 1 to n do
    if i mod 2 = 0 then WriteLn(i);
end.

===============

program p6;
var n, i: integer;
begin
    i := 1;
    WriteLn('Введите n');
    ReadLn(n);
    while i <= n do<br>    begin;
    if i mod 2 = 0 then WriteLn(i);
    i := i + 1;
    end;
end.

Comments

Сейчас сделаю)

---

А как этого делать?

---

Как новый вопрос написать

---

Кнопкка "задай вопрос"

---

такой нет

---

В лс отпишу

---

сорри, не могу, не знаю почему

---

Ок. Пиши в лс, если что)

---

program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do<br> begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.

==========

program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do<br> begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.

---

Исправил 4 и 6 задачу. Забыл прописать begin и end в циклах