Напишите программу которая вычисляет сумму всех четных чисел в диапазоне от 1 до n.


1

Ответы и объяснения

2014-02-20T21:31:44+04:00

Язык: паскаль.
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.