Информатика!Написать программу в Паскале! Задано целое положительное число N>1. Вычислить сумму четных целых чисел вдиапазоне [1..N]. Важно! Для решения задач использовать цикл с предусловием!
Информатика!Написать программу в Паскале! Задано целое положительное число N>1. Вычислить сумму четных целых чисел вдиапазоне [1..N]. Важно! Для решения задач использовать цикл с предусловием!
var
n,s,i : integer;
begin
s:=0; i:=0;
write('N = '); read(n);
while n <> i do
begin
i:=i+1;
s:=s+i;
end;
writeln('Сумма ', n, ' чисел = ',s);
end.