Предмет: Информатика,
автор: chernikov9696
Найдите сумму натуральных нечетных чисел не превышающих n!Сделать циклм while
Ответы
Автор ответа:
0
var i,n,sum:integer;
Begin
read(n);
i:=1;
sum := 0;
while i<=n do
begin
sum := sum + i;
i := i + 2;
end;
write(sum);
end.
Интересные вопросы
Предмет: Физика,
автор: farhodhamrajev
Предмет: Физика,
автор: xenoncraftkg2
Предмет: Математика,
автор: zaxarovakseniavl
Предмет: Алгебра,
автор: Самородок