4)Вывести ** экране : 2,4,6..22. 5) вывести ** экране сумму всех чисел от 5 до 20. 6)...

Question

4)Вывести на экране : 2,4,6..22. 5) вывести на экране сумму всех чисел от 5 до 20. 6) вычислить произведение чётных чисел от 8 до 18. 7) Вывести на экране 10 15 20 ... 65

Comments

блин

---

не открывает

---

скажи свой ник там и город

---

пробелы удали

---

Ну скажи. а то я не оч понимаю

---

Или я скажу хочегь

---

Геворг Паронян. Город белореченск. там просто еще есть два задания сюда отправить не смог

---

Слава Ильинский Омск

---

отправил в лс

---

ок

Answer 1

4)
Var    i,sum: integer;
Begin
i:=2;
    while (i<=22) do<br>         begin
        write(i,' ');
        i:=i+2
        end;
End.

5)
Var    i,sum: integer;
Begin
i:=5;
    while (i<=20) do<br>         begin
        sum:=sum+i;
        i:=i+1
        end;
  Writeln('Сумма чисел от 5 до 20 = ',sum)
End.

6)
Var    i,pr: integer;
Begin
i:=8;
pr:=1;
    while (i<=18) do<br>         begin
        pr:=pr*i;
        i:=i+2
        end;
  Writeln('Произведение четных чисел от 8 до 18 = ',pr)
End.

7)
Var    i: integer;
Begin
i:=10;
    while (i<=65) do<br>         begin
        Write(i,' ');
        i:=i+5
        end;
End.

Comments

напиши еще раз свой вк