Предмет: Информатика,
автор: bolela
Вычислите сумму N натуральных четных чисел, начиная с 2.
Ответы
Автор ответа:
0
program xxx;
var i, n, s : integer;
begin
write('введите число N=');
readln(n);
s:=0;
i:=2;
while i<=n do
begin
s:=s+i;
i:=i+2
end;
write('сумма четных чисел =', s);
readln
end.
Интересные вопросы
Предмет: Математика,
автор: zhjlfg0787
Предмет: Математика,
автор: kirakravchenko5
Предмет: Биология,
автор: zhansaykamazaika
Предмет: Математика,
автор: иринушка
Предмет: Математика,
автор: qwerty1970