Question

Написать программу в паскаль, суть следующая: Пользователь вводит 10 целых чисел.. Полученная программа должна вывести на экран сумму только четных чисел. Пожалуйста помогите 100 баллов!!!!!

Answer 1

Ответ:

program Chernovik;

var a,i,s: integer;

begin

s:=0;

for i:=1 to 10 do

begin

write(i:2,' число: ');

readln(a);

if a mod 2 = 0 then s:=s+a

end;

write('Сумма чётных чисел: ',s)

end.

Объяснение:

Используем цикл с параметром (переменная i)

Вводим число (переменная a)

Если число чётное, то увеличиваем сумму (переменная s) на него

Выводим сумму

Answer 2

Конечно, вот программа на Pascal, которая считывает 10 целых чисел с клавиатуры и выводит сумму только четных чисел:

pascalCopy code
program SumOfEvenNumbers;

var
  i, number, sum: integer;

begin
  sum := 0;

  writeln('Введите 10 целых чисел:');

  for i := 1 to 10 do
  begin
    write('Число ', i, ': ');
    readln(number);

    // Проверяем, является ли число четным
    if number mod 2 = 0 then
      sum := sum + number;
  end;

  writeln('Сумма четных чисел: ', sum);

  readln;
end.

Просто скопируйте этот код в среду разработки Pascal и выполните программу. Она попросит вас ввести 10 целых чисел, а затем выведет сумму только четных чисел.