Регистрация
namik2404
01.01.2020 22:58
Информатика
Есть ответ 👍

На паскале
Для N чисел, заданных случайным образом [-25;20], подсчитать сумму и количество чётных чисел, кратных 3.

156
191
Посмотреть ответы 2

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

Айымгул1
Айымгул1
4,4(78 оценок)

ха-ха-ха я это вчера Решила если хочешь скину решение Напиши мне WhatsAp +79770987604

eandrukova567
eandrukova567
4,7(41 оценок)

Объяснение:

var

   i, n, sum: integer;

begin

   writeln('Введите n');

   readln(n);

   ///Тут возможны два решения, с циклом и без. Вот первое:

   sum := 0;

   for i := 1 to n do

       if i mod 2 = 0 then

           sum := sum + i;

   writeln(sum);

   

   ///Второе, более быстрое, использующее формулу суммы первых членов арифметической прогрессии:

   if n mod 2 = 1 then n := n - 1;

   writeln(((2 + n) div 2) * n div 2);

end.

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