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

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

Задать свой вопрос
2 ответа
Задачка 3:

var s,i:integer;

begin

s:=0;

i:=7;

while ilt;=41 do begin

  s:=s+i;

  i:=i+2;

end;

writeln(s)

end.

Задача 4:

var

  i,p: integer;

begin

  i:=10;

  p:=1;

  while ilt;=20 do begin    

    p:=p*i;

    i:=i+2;

  end;

  writeln(i);

  writeln(p);

end.

Вот 1-ое
var n,i:integer ;begin

readln(n);

 for i := 1 to n do begin

writeln ('осень'); 

end; 

end.

Игорек Авдиянц
могу все написать
Арина Кифцова
если отметишь ответ как лучший
София Московенко
вот 2
Ульяна Нехлебаева
var i:integer ;begin for i := 20 to 50 do beginwriteln (i); end; end.
Букаткина Ксюха
вот 3
Nelli Myshina
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 ;beginn:=1; for i := 10 to 20 do begin if (i mod 2=0) then n:=n*i; end;writeln (n); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт