Question

Написать программу которая находит сумму чётных чисел из диапазона от n¹ до n² В программе Паскаль 8 класс​

Answer 1

Відповідь:

Это код в С++, я не смог перевести его полностью на Pascal

#include <iostream>

using namespace std;

int main()

{

   int n1;

   int n2;

   int sum = 0;

   

   cin>>n1;

   cin>>n2;

   

   for(int i = n1; i<=n2;i++){

       if(i%2==0){

           sum += i;

       }

   }

   cout<<sum;

   return 0;

}

Пояснення: вот код для Pascal, но он не полностью работает (если понимаешь, то посмотри. Проблема с условием)

program Hello;

var

   n1:integer;

   n2:integer;

   sum:integer;

   

   i:integer;

begin

sum:=0;

writeln('Enter n1');

read(n1);

writeln('Enter n2');

read(n2);

   for i:= n1 to n2 do

                       begin

                           if(i%2=0)

                           then sum:=sum+i

                       end;

writeln(sum);

end.

Answer 2

Вот пример программы на языке Паскаль, которая находит сумму чётных чисел в заданном диапазоне от n1 до n2:

pascalCopy code
program SumOfEvenNumbers;

var
  n1, n2, i, sum: integer;

begin
  writeln('Введите начало диапазона (n1): ');
  readln(n1);

  writeln('Введите конец диапазона (n2): ');
  readln(n2);

  sum := 0;

  for i := n1 to n2 do
  begin
    if i mod 2 = 0 then  // Проверяем, является ли число чётным
      sum := sum + i;
  end;

  writeln('Сумма чётных чисел в диапазоне от ', n1, ' до ', n2, ' равна: ', sum);

  readln;
end.

Программа запрашивает у пользователя начало и конец диапазона (n1 и n2), затем использует цикл for для перебора чисел в диапазоне. Если число является чётным (остаток от деления на 2 равен 0), то оно добавляется к переменной sum. В конце программа выводит сумму чётных чисел.

Обратите внимание, что ввод и вывод данных осуществляются с помощью процедур readln и writeln.