Информатика!Написать программу в Паскале!
Задано целое положительное число N>1. Вычислить сумму четных целых чисел в
диапазоне [1..N].
Важно! Для решения задач использовать цикл с предусловием!
Задано целое положительное число N>1. Вычислить сумму четных целых чисел в
диапазоне [1..N].
Важно! Для решения задач использовать цикл с предусловием!
More Questions From This User See All
Answers & Comments
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.