Задача на паскале. Батарея состоит из прямоугольных обогревательных секций. Все секции имеют одинаковый размер и одинаковую мощность. Однако, ремонт батареи, в случае выхода из строя одной из секции - очень трудоемкая задача, поэтому на складе запчастей, батарейные блоки бывают L разных видов: шириной в 1 секцию, в 2 секции, ...,в L секций. Такой блок из нескольких секций нельзя разрезать на части, то есть одним блоком можно заменить не более любых L подряд идущих секций. При этом можно менять не только неисправные секции, но и хорошие(стоимость блоков учитывать не будем - работа все-равно выходит дороже). Определите, какое наименьшее число блоков необходимо взять мастеру, чтобы починить всю батарею.

Формат ввода
Первая строка входных данных содержит целое число L(L > 0) - максимальный размер батарейного блока. Во второй строке входных данных записано целое число N(N > 0) - количество секций в заборе. Следующие N строк содержат по одному числу, равному 0 или 1. Число 1 обозначает, что соответствующая секция в батарее нуждается в замене, число 0 - что секция может быть сохранена.

Формат вывода
Программа должна вывести одно целое число - сумму введенных чисел N и M.
Пример
Ввод Вывод
3 2
8
0
0
1
0
1
0
1
0

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

↓

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

СвятаяИра

12.04.2022 14:37

«шифр цезаря». этот шифр реализует следующее преобразование текста: каждая буква исходного текста заменяется третьей после нее буквой в алфавите, который считается написанным...

Vlad8081

12.04.2022 14:37

Delphi напишите программу которая проверяет ваши знания таблицы умножения...

zwezdael

23.11.2020 05:53

Алфавит некоторого языка состоит из 64символов. за сколько секунд можно передать текст из 2000 символов, если скорость передачи-50 байтов в секунду?...

larakav

03.04.2023 13:05

Кандай пікірлер жалпы деп аталады...

lenasinyikovich

09.02.2020 21:41

Загадка. с такого устройства откопировать книгу можно. тексты, картинки любые станут с ним цифровыми. Скажите...

gopas11123

15.12.2021 06:11

Задание 2 Запишите название устройства обработки информации Отгадайте загадки Раньше такого умного друга У школьников не было в нашей округе. Теперь в каждом доме, на каждом...

КатаринаВаулина

16.05.2023 06:01

Сколько времени потребуется для ввода в память компьютера текста на 71 страницах с сканера и программы abbyy finereader, если известно, что на сканирование одной страницы уходит...

настя7073

16.05.2023 06:01

Procedure f(n: integer); begin if n 0 then begin f(n-1); f(n-3); writeln(n); end; writeln (n+3); end; что напечатает программа при f(2)? как решить подробно?...

vovashkaruba

12.09.2021 17:45

Какое высказывание истеное про дуб,сосну и...

egorkozlovcev

17.11.2020 06:00

Устройства для подключения к системной шине различных устройств...

Ответ:

kristina710

24.07.2022 12:21

Class OftenChar{
public static void main(String args[]){
java.util.Scanner in = new java.util.Scanner(System.in);
String string = in.nextLine(); char chars[] = new char[4];
chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
for(int sChar = 0; sChar<string.length(); sChar++)
if(string.charAt(sChar)==chars[0])chars[1]++;
else if(string.charAt(sChar)==chars[2])chars[3]++;
System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
}
}

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

Ответ:

esketit1

26.02.2020 10:06

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.

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

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

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