Ремонт дороги Длина автомобильной дороги составляет N километров. Часть дороги необходимо отремонтировать. При обследовании дорога была разбита на N участков длиной 1 километр, и для каждого участка было определено, нуждается ли он в ремонте или нет, после чего был составлен план дороги, на котором отмечены участки, нуждающиеся в ремонте.
Для ремонта дороги можно привлечь несколько компаний-подрядчиков. Каждая компания может отремонтировать только непрерывный фрагмент дороги. При этом из-за требований антимонопольного законодательства длина фрагмента дороги, который ремонтирует одна компания, не должна превышать L километров (даже если на фрагменте, который ремонтирует одна компания, есть не нуждающиеся в ремонте участки, общая длина данного фрагмента не должна превышать L километров).
Определите, какое наименьшее количество компаний-подрядчиков необходимо привлечь для ремонта дороги.
Ниже приведен вариант, когда программа запустится, но не выполнится:
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
...
возможность быстрого поиска информации широкие возможности навигаций
Объяснение:
Технология мультимедиа положена в основу создания всевозможных мультимедийных продуктов, характерными особенностями которых являются:
- объединение в одном продукте текстовой, графической, аудио-, видеоинформации, анимаций;
- наличие интерактивного (диалогового) режима работы;
- возможность быстрого поиска информации;
- широкие возможности навигаций;
- возможность работы в реальном времени, в замедленном или в ускоренном темпе;
- дружественный пользовательский интерфейс.
Например, в компьютерной игре задействованы графика и аудиоинформация.