Войти Регистрация Спроси ai-bota

Найти количество нечетных чисел от 1 до n

Ответ:

Siyadat2005

05.10.2020 19:33

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.

0,0(0 оценок)

Популярные вопросы: Информатика

polinakoshara03

12.10.2021 20:38

Каждая бактерия в банке делится на две через каждые 3 минуты. в начальный момент имеется 1 бактерия. сколько их будет через n минут?...

Dianapro111

19.02.2023 06:04

Перед тобой число в двоичной системе. Выбери, какое это число в десятичной системе...

TaiGaaara

28.05.2021 18:48

1. Запишите прямой код числа, интерпретируя его как восьмибитовое целое без знака. А) 224(10); б) 253(10); в) 226(10) 2. Запишите дополнительный код числа интерпретируя...

faire6

13.11.2020 09:15

Написать программу Pascal Написать программу, которая в заданном с клавиатуры массиве из 7 целых чисел находит сумму элементов, меньших 4....

Алишер00001

15.09.2022 01:34

Сделайте соответствие программ ...

Renat213

07.04.2021 15:07

Що таке захищений сайт? Які його ознаки?...

lidakirillina

21.09.2021 04:19

Найти переменные а и bit a 3 thenif b 3 then c:=4else c:=5else c:=6;...

YulyaDremina

25.05.2020 01:14

В каком разделе меню окна программы Power Point находится команда Настройка анимации? 1.Показ слайдов 2. Формат 3. Файл 4. Вставка...

hudognik78

06.08.2020 19:24

Какое из неравенств выполняется для чисел а 440 в 8-ричной системе в 100010011 в 2-ичной системе и с 2034 в 5-ричной системеответы:1) В С А2)А В С3)В=С А4)С В А...

kostyaluch

23.10.2022 12:58

В каком разделе меню окна программы Power Point находится команда Настройка анимации? 1.Показ слайдов 2. Формат 3. Файл 4. Вставка...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку