Регистрация
Денок07
10.04.2020 06:57
Информатика
Есть ответ 👍

Напишите программу, которая находит сумму четных чисел, больших 5, в последовательности целых чисел. программа получает на выход целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0( признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введенные числа по модулю не превышают 30000. программа должна вывести одно число: сумму чётных чисел, больше 5.

159
482
Посмотреть ответы 2

Ответы на вопрос:

maria610
maria610
4,5(56 оценок)
Var       a: integer;       s: longint; begin       s : = 0;       readln(a);             while a < > 0 do       begin               if (a mod 2 = 0) and (a > 5) then                       s : = s + a;               readln(a);       end;             writeln(s); end.
abdigalikova1708
abdigalikova1708
4,4(17 оценок)

Var x,y:real;

Begin

   write('Введите x,y: ');readln(x,y);

   writeln('P = ',2*(x+y):0:2);

  end.

Популярно: Информатика