Kaakives
5 год назад
найти количество нечетных чисел от 1 до n
ОТВЕТЫ
Ян
Oct 24, 2020
var s,n: integer;
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
begin
read(n);
s:=0;
for var i := 1 to n do if i mod 2 <> 0 then s:=s+1;
writeln(s);
end.
403
Смежные вопросы:
