Question

Составьте алгоритм нахождения суммы четных и нечетных чисел от 1 до 100. На языке ПАСКАЛЬ

Answer 1

uses crt;
var

  i,s1,s2:integer;
begin
  for i:=1 to 100 do
  begin
    if i mod 2=0 then s1:=s1+i
    else s2:=s2+i;
  end;
  writeln('Сумма четных чисел: ',s1);
  write('Сумма нечетных чисел: ',s2);
end.

Answer 2

i - цикловая переменная
s1 - сумма нечётных чисел от 1 до 100
s2 - сумма чётных чисел от 1 до 100

var
i, s1, s2 : integer;
begin
s1 := 0;
s2 := 0;
for i := 1 to 100 do
begin
if i mod 2 = 0 then
s2 := s2 + i;
else
s1 := s1 + i;
end;
writeln ('Сумма четных чисел: ', s2);
writeln ('Сумма нечетных чисел: ', s1);
end.

Answer 3

Алгоритм нахождения суммы четных и нечетных чисел от 1 до 100 на языке ПАСКАЛЬ:

goCopy code
program SumOfEvenAndOddNumbers;

var
  i, sumOfEven, sumOfOdd: integer;

begin
  sumOfEven := 0;
  sumOfOdd := 0;
  
  for i := 1 to 100 do
  begin
    if i mod 2 = 0 then
      sumOfEven := sumOfEven + i
    else
      sumOfOdd := sumOfOdd + i;
  end;
  
  writeln('Sum of even numbers:', sumOfEven);
  writeln('Sum of odd numbers:', sumOfOdd);
  
end.

В этом алгоритме мы объявляем переменные для суммы четных и нечетных чисел, затем используем цикл for, чтобы пройти по числам от 1 до 100. В теле цикла мы проверяем, является ли текущее число четным или нечетным, и добавляем его в соответствующую переменную суммы. В конце программы выводим значения суммы четных и нечетных чисел на экран.