Регистрация
N4kes
16.06.2023 02:04
Информатика
Есть ответ 👍

Опредилите тип алгоритма для указанных команд​

278
354
Посмотреть ответы 1

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

Matildos2017
Matildos2017
4,8(16 оценок)
Язык: паскаль. program alfa 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); end. ////второе, более быстрое, использующее формулу суммы первых членов арифметической  прогрессии: if n mod 2=1 then n: =n-1; sum: =((2+n)/2)*n/2; writeln(sum); end.

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