Question

Решить задачу на языке программирования Pascal: Найти сумму натуральных четных чисел в промежутке от 1 до 13. Если эта сумма больше 15, вывести сообщение "Много!", в противном случае вывести сообщение "Мало!".

Answer 1

Var
  a       :  array [1..100] of longint;
  sum,i : longint;
begin
sum:=0;
for i:=1 to 13 do begin readln(a[i]); sum:=sum+a[i]; end;
if sum>15
  then writeln('Много')
  else writeln('Мало');

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая решает данную задачу:

program SumOfEvenNumbers;

var
  i, sum: integer;

begin
  sum := 0;

// Проходим по числам от 1 до 13
  for i := 1 to 13 do
  begin
    // Проверяем, является ли число четным
    if i mod 2 = 0 then
    begin
      // Если число четное, добавляем его к сумме
      sum := sum + i;
    end;
  end;

// Проверяем сумму и выводим соответствующее сообщение
  if sum > 15 then
    writeln('Много!')
  else
    writeln('Мало!');
end.

Эта программа использует цикл `for`, чтобы пройти по числам от 1 до 13, и проверяет, является ли каждое число четным. Если число четное, оно добавляется к сумме. Затем программа сравнивает полученную сумму с 15 и выводит соответствующее сообщение.

Надеюсь, это поможет! Если у вас есть еще вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать.