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

В стране Берляндии города расположены на сетке n на m клеток. Города нумеруются слева-направо и сверху-вниз. Левый верхний город будет иметь координаты (1,1), а правый нижний город будет иметь координаты (n,m). Дороги соединяют города по сетке, то есть город с координатами (x, y) имеет дороги к 4-м городам c координатами (x + 1, y), (x - 1, y), (x, y + 1), (x, y - 1), с условием того, что города с такими координатами существуют. Есть k некрасивых городов. Президент хочет проехать из города, расположенного слева вверху в город справа внизу. Но он не хочет проезжать по некрасивым городам.Так же он может ехать только вправо или вниз по сетке президенту понять, сможет ли он добраться до правого нижнего города, посещая только красивые города.

Гарантируется что левый верхний и правый нижний города красивые.

Формат ввода
В первой строке даны два целых числа n, m (1 ≤ n, m ≤ 105, n*m ≤ 105) — размеры сетки

Во второй строке дано число k(0 ≤ k ≤ n*m) — количество некрасивых городов

В каждой из последующих k строк даны два числа xi и yi - координаты i-го некрасивого города

Формат вывода
Если президент сможет проехать путь, посещая только красивые города, то выведите «YES», иначе «NO» (без кавычек)

Тесты:
3 3
3
1 2
2 2
3 2
ответ: NO

Показать ответ
Ответ:
димон333777
димон333777
06.07.2021 18:46

1)

var

a: integer;

even,odd: byte;

begin

readln(a);

even := 0;

odd := 0;

while a > 0 do begin

 if (a mod 2) = 0 then

  even := even + 1

 else

  odd := odd + 1;

 a := a div 10;

end;

writeln('even: ', even);

writeln('odd: ', odd);

end.

2)

var

   n, m: longint;

   a: byte;

begin

   readln(n);

   m := 0;

   while n>0 do begin

       a := n mod 10;

       n := n div 10;

       m := m*10 + a;

   end;

   writeln(m);

readln;

end.

3)

var

   a,b,c,i,n: integer;

begin

   write('n = ');

   readln(n);

   a := 0;

   write(a,' ');

   b := 1;

   write(b,' ');

   for i:=3 to n do begin

       write(a+b,' ');

       c := b;

       b := a + b;

       a := c

   end;

readln

end.

Объяснение:


Проверочная работа. 1)ЗадачаНаписать программу, подсчитывающую количество четных и нечетных цифр в ч
Проверочная работа. 1)ЗадачаНаписать программу, подсчитывающую количество четных и нечетных цифр в ч
Проверочная работа. 1)ЗадачаНаписать программу, подсчитывающую количество четных и нечетных цифр в ч
0,0(0 оценок)
Ответ:
polli11092002
polli11092002
06.07.2020 01:49

Відповідь:

ассмотрим, что происходит в результате поворота точки. Пусть некоторая точка  

А

поворачивается относительно центра поворота  

О

, в результате чего получается точка  

А

1

(при совершении некоторого количества полных оборотов она может совпасть с точкой  

А

). При этом точка  

А

1

лежит на окружности с центром в точке  

О

радиуса  

О

А

. Другими словами, когда точка  

А

осуществляет поворот относительно точки  

О

, она переходит в точку  

А

1

, лежащую на окружности с центром  

О

радиуса  

О

А

.

Пояснення:

ты про ёто?

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