Найти сумму целых положительных четных чисел, вводимых с клавиатуры. - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

помогите решить задачьку в паскале Найти сумму целых положительных четных чисел, вводимых с клавиатуры. Технические условия. Количество чисел N, которые будут введены с клавиатуры,задают в начале программы (4<N<20).

Решение задачи: «Найти сумму целых положительных четных чисел, вводимых с клавиатуры.»

textual
Листинг программы
var n,i,a,s:integer;
begin
repeat
write('Сколько чисел ввести (от 5 до 19) n=');
readln(n);
until n in [5..19];
writeln('Введите ',n,' целых чисел');
s:=0;
for i:=1 to n do
 begin
  readln(a);
  if(a>0)and(a mod 2=0) then s:=s+a;
 end;
write('Сумма четных положительных чисел=',s);
readln
end.

Объяснение кода листинга программы

  1. Создается переменная n типа integer, которая будет использоваться для хранения количества введенных чисел.
  2. Создается переменная i типа integer, которая будет использоваться для перебора чисел от 1 до n.
  3. Создается переменная a типа integer, которая будет использоваться для хранения введенного числа.
  4. Создается переменная s типа integer, которая будет использоваться для хранения суммы четных положительных чисел.
  5. Запускается цикл for, который будет выполняться n раз.
  6. Внутри цикла считывается ввод пользователя с помощью функции readln().
  7. Проверяется, является ли введенное число положительным и четным с помощью условий if(a>0)and(a mod 2=0).
  8. Если условие истинно, то значение переменной a добавляется к переменной s.
  9. После завершения цикла for, выводится сообщение с результатом.
  10. Выполняется функция readln() для считывания ввода пользователя.
  11. Программа завершается.

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы