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.
вот 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

Задача 1: Написать слово "осень" n-ое количество раз

Чтобы написать слово "осень" n-ое количество раз, можно использовать цикл, который будет повторяться n раз и выводить слово "осень" на каждой итерации. Вот пример кода на языке Паскаль:

program Task1;
var
  n, i: integer;
begin
  writeln('Введите количество повторений:');
  readln(n);
  
  for i := 1 to n do
    writeln('осень');
end.

В этом примере мы сначала запрашиваем у пользователя количество повторений (n), а затем с помощью цикла for выводим слово "осень" n раз.

Задача 2: Вывести числа от 20 до 50 в столбик

Чтобы вывести числа от 20 до 50 в столбик, можно использовать цикл, который будет перебирать числа от 20 до 50 и выводить их по одному на каждой итерации. Вот пример кода на языке Паскаль:

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

В этом примере мы используем цикл for, который перебирает числа от 20 до 50 и выводит их по одному на каждой итерации с помощью процедуры writeln.

Задача 3: Вычислить сумму нечетных чисел от 7 до 41

Чтобы вычислить сумму нечетных чисел от 7 до 41, можно использовать цикл, который будет перебирать числа от 7 до 41 и складывать только нечетные числа. Вот пример кода на языке Паскаль:

program Task3;
var
  i, sum: integer;
begin
  sum := 0;
  
  for i := 7 to 41 do
  begin
    if i mod 2 <> 0 then
      sum := sum + i;
  end;
  
  writeln('Сумма нечетных чисел от 7 до 41: ', sum);
end.

В этом примере мы используем цикл for, который перебирает числа от 7 до 41. Внутри цикла мы проверяем, является ли текущее число нечетным с помощью оператора mod. Если число нечетное, мы добавляем его к переменной sum. В конце программы выводим значение переменной sum, которая содержит сумму нечетных чисел.

Задача 4: Вычислить произведение всех четных чисел от 10 до 20

Чтобы вычислить произведение всех четных чисел от 10 до 20, можно использовать цикл, который будет перебирать числа от 10 до 20 и перемножать только четные числа. Вот пример кода на языке Паскаль:

program Task4;
var
  i, product: integer;
begin
  product := 1;
  
  for i := 10 to 20 do
  begin
    if i mod 2 = 0 then
      product := product * i;
  end;
  
  writeln('Произведение четных чисел от 10 до 20: ', product);
end.

В этом примере мы используем цикл for, который перебирает числа от 10 до 20. Внутри цикла мы проверяем, является ли текущее число четным с помощью оператора mod. Если число четное, мы умножаем его на переменную product. В конце программы выводим значение переменной product, которая содержит произведение четных чисел.

Ответ на вопрос

Если у вас есть еще вопросы, пожалуйста, задайте их, и я с радостью на них ответю!