Найдите сумму натуральных нечетных чисел не превышающих n!Сделать циклм while
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.