Составить программу для подсчета суммы нечетных чисел от 1 до n

sayvik1 sayvik1    1   21.09.2019 14:10    1

Ответы
magdigadjiev magdigadjiev  08.10.2020 07:18
Var s,i,n:integer;

begin
s:=0;
readln(n);
for i:=1 to n do  
if (i mod 2 <> 0) then   
s+=i;  
writeln(s);  
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы