Ребят помогите задача по информатике 8 класс В Паскале АВС 1)Написать слово осень n-ое...

Question

Ребят помогите задача по информатике 8 класс В Паскале АВС
1)Написать слово осень n-ое кол-во раз.
2)Выведите числа от 20 до 50 в столбик.
3)Вычеслите сумму нечетных чисел от 7 до 41.
4)Вычеслите произведение от 10 до 20 всех чётных чисел.
НАпишите хотя бы на 1 вопрос ответ если знаете .Плиз!

Answer 1

Вот первое
var n,i:integer ;begin

readln(n);

 for i := 1 to n do begin

writeln ('осень'); 

end; 

end.

Comments

могу все написать

---

если отметишь ответ как лучший

---

вот 2

---

var i:integer ;
begin
for i := 20 to 50 do begin
writeln (i);
end;
end.

---

вот 3

---

var i,n:integer ;
begin
for i := 7 to 41 do begin
if (i mod 2<>0) then
n:=n+i;
end;
writeln (n);

end.

---

и 4

---

var i,n:integer ;
begin
n:=1;
for i := 10 to 20 do begin
if (i mod 2=0) then
n:=n*i;
end;
writeln (n);

end.

Answer 2

Задача №3: