М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sef841
sef841
28.02.2021 14:30 •  Информатика

Инопланетная неделя на разных планетах длительность года разная, а значит и рабочая неделя там тоже может быть не семидневной. известно, что длительность недели на некой далекой планете составляет x дней, также известно, что сейчас на этой планете день недели под номером d. определите, какой день недели был на далекой планете k дней назад. формат входных данных три целых числа: x - длительность недели на некой далекой планете (1 < x < 1000) d - номер текущего дня недели (1 < d < x) k - количество дней, которые со дня начало отсчета (1 < k < 109) формат выходных данных целое число: номер дня в недели для искомого дня примеры входные данные выходные данные 3 1 4 3

👇
Ответ:
kall5
kall5
28.02.2021

Давай будем K раз изменять наш текущий день на "вчерашний", т.е. уменьшать на 1. Если после очередного такого уменьшения мы получили, что наш текущий день стал равен 0, значит, мы уже перешли в последний день предыдущей недели. Тогда мы говорим, что наш текущий день равен X.

Схематично изобразил это на вложении 1.  


Код на PascalABC

var   x, d, k, // Числа из ввода

  i   : integer;

begin

  read(x, d, k); // Ввод чисел

  for i:=1 to k do // Будем постепенно идти на k дней назад

  begin

    d:=d-1; // Идём на один день назад

    if (d < 1) then

      d:=x; // Переходим на предыдущую неделю, если необходимо

  end;

  writeln(d); // Выводим ответ

end.

--------------------------------------------------

Вложено решение как файл.


Инопланетная неделя на разных планетах длительность года разная, а значит и рабочая неделя там тоже
4,4(92 оценок)
Ответ:
мишка4543
мишка4543
28.02.2021

Ввод: X ^ D ^ K С/П.

П2 -> П1 -> П0

ИП2 ^ ИП0 / [x] ИП0 * -

ИП1 - /-/ ИП0 +

^ ИП0 / [x] ИП0 * -

x=0 28 ИП0 С/П

На индикаторе номер нужного дня.

4,5(45 оценок)
Открыть все ответы
Ответ:
illaria2703
illaria2703
28.02.2021
Решение, задачи "Даны действительные числа 1,2,…70. Вывести последовательность 2,3,…,70,1".  см. Файл.
P.S. Решение на указателях. 

gcc: 4.8.1

Исходные данные: 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

После сдвига:
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 1
4,7(97 оценок)
Ответ:
DENZYSUPER
DENZYSUPER
28.02.2021
Не очень корректно объяснили, но если правильно вас понял:
 Program G;
 Var n, z, m, p: integer;
 Begin 
  z:=0;
  p:=0; 
 m:=0; 
 Writeln('Введите число n. Число 9999 завершает цикл.'); 
 Readln(n); 
 While n<>9999 do 
  Begin   
   If n=0 then inc(z);   
    else if n>0 then inc(p);   
    else inc(m);   
   Writeln('Введите число');   
   Readln(n); 
  End; 
 Writeln('Было введено ', z, ' нулей.'); 
 Writeln('Было введено ', p, ' положительных чисел.'); 
 Writeln('Было введено ', m, ' отрицательных чисел.');  
 Readln;
 End.
4,5(13 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ