sssqwdsgdsgds
08.03.2020 09:37

Визначити кількість 8 у числі. Якщо такої цифри немає, відповіддю має бути число

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
NoZeX1
21.03.2020 13:57

2. количество пикселей, из которых складывается изображение на экране

3. Числа строк на число пикселей в строке.

4. красного, синего, зелёного

5. битов, которые используются для кодирования цвета одного пикселя

6. это внутренняя оперативная память, отведённая для хранения данных, которые используются для формирования изображения на экране монитора.

7. это количество обновлений экрана в секунду. В Герцах.

8. Пространственное разрешение монитора.  Пикселей. Видеопамяти.

9. хранения информации о цвете каждого пикселя экрана монитора;

10. 480000 Кбайт;

0,0(0 оценок)
Ответ:
Еленка871
10.09.2020 01:18
PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var N, A, B, C, D: integer;

 Readln(N, A, B, C, D);

 if A > C then (A, B, C, D) := (C, D, B, A);

 var s := 1.To(A - 1);

 if B < C then // ( ) [ ]

   s := s + B.Downto(A) + (B + 1).To(C - 1) +

       D.Downto(C) + (D + 1).To(N)

 else

 if D < B then // ( [ ] )

 begin

   s := s + SeqGen(C - A, t -> B - t) +

       SeqGen(D - C + 1, t -> t + A + B - D) +

       SeqGen(B - D, t -> A - t + B - D - 1) + (B + 1).To(N)

 end

   else // ( [ ) ]

 begin

   s := s + SeqGen(C - A, t -> B - t) +

       SeqGen(D - B, t -> D - t) + SeqGen(B - C + 1, t -> A + t) +

       (D + 1).To(N);

 end;

 s.Println;

end.

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