Определить количество нечетных чисел заданных от 1 до n

Определить количество нечетных чисел заданных от 1 до n
Категория: Информатика 3 года назад
На вопрос 3 года назад
Ksyuha Umanec
Var a,n,k : integer;
begin
write('Введите n :');
readln(n);
a:=1;
repeat
  k:=k+1;
  a:=a+2;
until a>n;
writeln('Количество нечетных ',k);
end.
Тестовое решение:
Введите n :10
Количество нечетных 5
Ответ получен 3 года назад
Nazar Bedarev

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт