Напишите эффективную программу, которая по двум данным натуральным числам a и b, не превосходящим 30000, подсчитывает количество нечетных натуральных чисел на отрезке [a,b] (включая концы отрезка). программа получает на вход два натуральных числа a и b, при этом гарантируется, что 1 ≤ a ≤ b ≤ 30000. проверять входные данные на корректность не нужно. программа должна вывести одно число: количество нечетных чисел на отрезке [a,b]. пример работы программы: входные данные: 11, 21 выходные данные: 6

Ответы

Unicorn261 02.08.2020 20:52

Var a,b,n: integer;
begin
write('a b через пробел: '); readln(a,b);
n:=b-a+1;
if (n mod 2 = 1) and (a mod 2 = 1) then
n:=n div 2 + 1
else n:= n div 2;
writeln('число нечетных чисел: ',n);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Крад 21.05.2020 13:03

Решить задачу: Найти сумму четных цифр числа (с цикла ДЛЯ) КуМир...

марго398 21.05.2020 13:03

Створити програму на знаходження n-го числа ряду Фібоначч надо решить, очень если вы не знаете как решить, не надо писать сюда, хз, не знаю......

нрпаллмаегли 26.02.2020 00:15

Можно ли написать программу для Удвоителя, которая из любого числа x строит число 7x+9?Почему? Заполните пропуск: «Можно написать программу для Удвоителя, которая из...

cuvluroyeoc 26.02.2020 00:20

Какие команды нужно добавить вместо многоточия в программу для Черепахи: повтори 10 [вперед 40 вправо 50 ...] чтобы Черепаха нарисовала: а) квадрат со стороной 80 б)...

BashProcker 08.10.2019 19:40

Що таке штучна нейронна мережа? дайте означення своїми словами (до 50 слів)....

tigertuborg 08.10.2019 19:40

1. каково назначение кеш-памяти? 2. что такое bios и какова её роль? 3. каково назначение контроллеров и адаптеров? в чем разница между ними? 4. что такое порты устройств?...

altemirovap0cn54 08.10.2019 19:40

Даны 3 числа, определить, существует ли треугольник с такими длинами сторон, если существует, то определить его тип: равносторонний, равнобедренный, разносторонний....

yanavyskubina 22.08.2019 04:10

Program esep8; uses crt; var x,y,z,s,p: double; begin clrscr; writeln( x,y,z-енгиз ); readln(x,y,z); s: =x+y+z; p: =x*y*z; if s p then write( косынды улкен= ,s, ,p);...

12345678006432 22.08.2019 04:10

Program esep8; uses crt; var x,y,z,s,p: double; begin clrscr; writeln( x,y,z-енгиз ); readln(x,y,z); s: =x+y+z; p: =x*y*z; if s p then write( косынды улкен= ,s, ,p);...

help1010100101020349 22.08.2019 04:10

Ввести число не равное нулю. возвести во вторую степень отрицательное число, а в третью степень положительное число. на я зыке паскаль,...

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