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

Найти количество четных чисел в промежутке от 1 до n. n вводится с клавиатуры. в !

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

qsn50857

14.01.2023 22:37

1.Создайте в программе Word рекламный лист, где будут рекламироваться товары компьютерного магазина. Текст напишите на ваше усмотрение. Проявите творчество. 2.Вставьте...

dfgery

21.01.2021 12:36

Каково название группы элементов Ссылки и списки литературы? А) Вставка диаграммы.В) Они позволяют управлять списком научных трудов и списков литературы, а также устанавливать...

krokodilol

07.04.2023 16:17

Построить таблицу истинности....

studentASH

24.09.2020 01:20

Прощу у знатоков информатики,с меня - с вас ответ Спамеров не беспокоитЗадание 1 Установите порядок этапов моделирования; 1 2 3 4 5Рендеринг Раскраска МоделированиеОсвещениеСъемка...

kirillm3

16.01.2023 15:33

Упростите логические выражения, используя законы логики. F1=¬(A&B)v¬(BvC)F2=A&Cv¬A&CF3=¬Av¬Bv¬CvAvBvCF4=¬((A&B)v¬(A&B))...

icidarmitrim

19.11.2021 05:33

Задание 4. Определите значение переменных а и b после выполнения фрагмента программы, приведенной ниже на одном из алгоритмических языков:a:=1;b:=3;a:=b - a;b:=2 *...

Губанова1234

05.03.2022 20:30

Задание 5. Определите, что будет выведено результате работы фрагмента программы, представленной на языке программирования Pascal: Ba:=3;b:=2;if a b then c := b – 1;else...

Ele0000

04.01.2020 09:18

скорость передачи данных по некоторому каналу связи равна 256000 бит/с передача данных это соединение заняла 2 минуты 8 секунд определите информационный объем переданных...

ElizabethFoxEl

20.03.2021 04:37

Глосарий •Авторизация •Аутентификация •Безопасность информации [данных] •Зашифрование данных...

TiltPro

22.11.2020 09:19

Какое значение примет переменная С в результате выполнения программы: Var A, B, C,i: integer; Begin A:=4; B:=A*3-6; for i:=4 to 5 do BEGIN If B 2*A Then A:=2; IF B...

Ответ:

yarabar

16.06.2020 11:52

Вроде так.

K := N div 2;
if Odd(N) then Inc(K);
WriteLn(K);

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

Ответ:

Kotik77789

16.06.2020 11:52

1.program AB;
2.var s, n : integer;
3.begin
4)s:=0;
5.for n:=1 to 10 do if n mod 2=0 then s:=s+1;
6.writeln(s);
7.end.

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

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

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