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

Задача 1. Бабушка жарит картофельные лепёшки, на сковороде, на которой одновременно
можно выпекать не более двух лепёшек. Каждую из лепёшек необходимо выпекать в течении
одной минуты с каждой стороны. Какое минимальное время требуется бабушке, чтобы
приготовить пять лепёшек? Изобразите план приготовления пяти лепёшек графически.
Задача 2. К реке одновременно подошли три купца и три разбойника. Всем необходимо было
переправиться на противоположный берег. У берега стояла лодка, которая могла вместить
только двух человек. Если во время переправы на берегу число купцов и разбойников будет
одинаковым, то разбойники не тронут купцов; если же число разбойников превысит число
купцов хотя бы на одного человека, то разбойники убьют купцов. Перед купцами стояла
сложная задача, но она была ими решена все перебрались на тот берег и жертв не было. Как
сумели перебраться купцы и разбойники и сколько рейсов совершила лодка? За рейс следует
считать движение лодки в одном направлении.
Придумайте обозначения и оформите план греправы в таблице.​

Показать ответ
Ответ:
дарья1627
дарья1627
06.02.2023 04:49
Var
  count, i, d1, d2, d3, d4, d5, d6: integer;
const
  MIN = 189980;
  MAX = 205505;
begin
  count := 0;
  for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i 
      then
        count := count + 1;
    end;
  writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.
0,0(0 оценок)
Ответ:
anaStasyaplus
anaStasyaplus
06.02.2023 04:49
Var
  count, i, d1, d2, d3, d4, d5, d6: integer;
const
  MIN = 189980;
  MAX = 205505;
begin
  count := 0;
  for i := MIN to MAX do
    begin
      d1 := i div 100000;
      d2 := i mod 100000 div 10000;
      d3 := i mod 10000 div 1000;
      d4 := i mod 1000 div 100;
      d5 := i mod 100 div 10;
      d6 := i mod 10;
      if ( (d6 * 100000) + (d5 * 10000) + (d4 * 1000) + (d3 * 100) + (d2 * 10) + d1 ) = i 
      then
        count := count + 1;
    end;
  writeln('в промежутке от ', MIN, ' до ', MAX, ' ', count, ' счастливых билетов');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота