В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
basemaker
basemaker
16.02.2023 17:34 •  Информатика

Ремонт дороги Длина автомобильной дороги составляет N километров. Часть дороги необходимо отремонтировать. При обследовании дорога была разбита на N участков длиной 1 километр, и для каждого участка было определено, нуждается ли он в ремонте или нет, после чего был составлен план дороги, на котором отмечены участки, нуждающиеся в ремонте.

Для ремонта дороги можно привлечь несколько компаний-подрядчиков. Каждая компания может отремонтировать только непрерывный фрагмент дороги. При этом из-за требований антимонопольного законодательства длина фрагмента дороги, который ремонтирует одна компания, не должна превышать L километров (даже если на фрагменте, который ремонтирует одна компания, есть не нуждающиеся в ремонте участки, общая длина данного фрагмента не должна превышать L километров).

Определите, какое наименьшее количество компаний-подрядчиков необходимо привлечь для ремонта дороги.

Показать ответ
Ответ:
sophiakrutko
sophiakrutko
03.07.2022 11:48

Ниже приведен вариант, когда программа запустится, но не выполнится:

program Zadacha;  // удален символ 1

var a, b, c, d, s, p, r, q: integer;

begin // began заменен на begin

write (‘Ведите первое число=’, a); // В конце вместо , должно быть ;

writeln (‘Ведите второе число=’, b);// В конце вместо , должно быть ;

writeln (‘Ведите третье число=’, c);// В конце вместо , должно быть ;

writeln (‘Ведите четвертое число=’, d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Чтобы программа выполнялась нормально, нужно изменить ее следующим образом:

program Zadacha;

var a, b, c, d, s, p, r, q: integer;

begin

write ('Ведите первое число='); read(a);

writeln ('Ведите второе число='); read(b);

writeln ('Ведите третье число='); read(c);

writeln ('Ведите четвертое число='); read(d);

s:=a+b+c+d;

p:=a*b*c*d;

r:=a-b-c-d;

q:=a div b;

writeln ('Сумма=',s);

writeln ('Произведение=',p);

write ('Разность=',r);

write ('Частное=',q)

end.

Также остается неясным, что подразумевалось под "разностью" и "частным". Если "разностью" еще можно назвать выражение a-b-c-d, то a/b - точно не частное. Это только целая часть от деления a на b. Чтобы это было частным, нужно переменную q объявить как real:

program Zadacha;

var a, b, c, d, s, p, r: integer;

var q: real;

begin

...

0,0(0 оценок)
Ответ:
PidorPro
PidorPro
30.07.2020 14:11

возможность быстрого поиска информации  широкие возможности навигаций

Объяснение:

Технология мультимедиа положена в основу создания всевозможных мультимедийных продуктов, характерными особенностями которых являются:

- объединение в одном продукте текстовой, графической, аудио-, видеоинформации, анимаций;

- наличие интерактивного (диалогового) режима работы;

- возможность быстрого поиска информации;

- широкие возможности навигаций;

- возможность работы в реальном времени, в замедленном или в ускоренном темпе;

- дружественный пользовательский интерфейс.

Например, в компьютерной игре задействованы графика и аудиоинформация.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота