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

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

Задать свой вопрос
1 ответ
Var a,n,k : integer;
begin
write('Введите n :');
readln(n);
a:=1;
repeat
  k:=k+1;
  a:=a+2;
until agt;n;
writeln('Количество нечетных ',k);
end.

Тестовое решение:
Введите n :10
Количество нечетных 5

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт