===== PascalABC.NET =====
begin
var a := ReadArrInteger(50);
a.Pairwise.Count( p -> p[0].InRange(100, 999) and
p[1].InRange(100, 999)).Println
end.
640 * 480 = 307200 пикс.
307200 * 3 = 921600 байт
28800 бит/c = 3600 байт/c
921600 / 3600 = 256 c.
Из рисунка следует, что для N-1 пары отверстий, считая сверху, потребуется пройти двойное количество расстояний a и b, т.е. 2(N-1)(a+b). Еще одно расстояние a надо пройти между нижней парой отверстий и еще с каждой стороны остается свободный конец длины l. Тогда общая длина шнурка составит 2(N-1)(a+b)+a+2l
<em><u>Ниже приведена программа на языке Паскаль (версия TP 7.01).</u></em>
uses Crt;
var
a,b,l,N:integer;
begin
ClrScr;
Write('Vvedite a,b,l,N: ');
Read(a,b,l,N);
Writeln('Dlina=',2*(N-1)*(a+b)+a+2*l);
ReadKey
end.
<em><u>Тестовое решение:</u></em>
Vvedite a,b,l,N: 40 20 120 6
Dlina=880
1010
10 / 2 = 5 остаток 0
5 / 2 = 2 остаток 1
2 / 2 = 1 остаток 0
собираем последний результат и остатки в обратном порядке - получаем 1010
Компьютер играет значимую роль в нашей жизни. Мы на нём можем смотреть полезную информацию, сохранять файлы с нужной для нас информацией и передавать информацию другим пользователям. Компьютер
-это поле для деятельности/работы человека.На нём мы можем даже ПРОГрАМИРОВАТЬ и помогать людям, допустим приложение Znanija.com.
(вы довольны?)