Fanny321
26.03.2023 22:58

Задача D. OnePlus В языке программирования OnePlus значения переменных невозможно перезаписывать. Любая переменная состоит из одной латинской буквы и определяется один раз,как сумма нескольких неповторяющихся переменных или единицы.
Для краткости значения переменных задаются выражениями,похожими на математические,но без знака сложения,они имеют вид b=A1A2A3...,где B-переменная,задаваемая символом латинского алфавита,Ai - другие не повторяющиеся объявленные ранее переменные или 1.Например,фрагмент программы может выглядеть так:
q=1
p=q1
E=p
w=p1q
a=wpE
В результате значением a будет 8
Программа выполняется построчно сверху вниз.Если в строке после знака равенства используется не объявленная выше переменная,то программа считается некорректной.
Вам даны несколько строк программы на языке OnePlus в произвольном порядке.Требуется по ним восстановить корректную программу.
Ограничение времени 3 секунды
Ограничение памяти 256Mb
Ввод стандартный ввод
Вывод стандартный вывод
Пример 1
Ввод Вывод
4
b=a
c=d
a=c
d=1
d=1
c=d
a=c
b=a
Пример 2
Ввод Вывод
5
E=p
p=q1
w=p1q
a=wpE
q=1
q=1
p=q1
E=p
w=p1q
a=wpE

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
leonde
17.10.2022 11:20
1). Ніколи не давайте приватної інформації про себе (прізвище, номер телефону, адресу, номер школи) без дозволу батьків.
2). Завжди дотримуйтесь сімейних правил Інтернет-безпеки: вони розроблені для того, щоб ви почували себе комфортно і безпечно у мережі.
3). Завжди будьте ввічливими у електронному листуванні, і ваші приятелі будуть ввічливими з вами.
4). Не розсилайте листи з будь-якою інформацією незнайомим людям без їхнього прохання - це сприймається як "спам", і звичайно засмучує користувачів мережі.
0,0(0 оценок)
Ответ:
Domashka3333
02.11.2020 21:29

Var

День,Месяц:byte;

Begin

Write('№ дня = ');ReadLn(День);

Var C:=365-День;

Write('№ месяца = ');ReadLn(Месяц);

Case Месяц of

2:C:=C-31;

3:C:=C-59;

4:C:=C-90;

5:C:=C-120;

6:C:=C-151;

7:C:=C-181;

8:C:=C-212;

9:C:=C-243;

10:C:=C-273;

11:C:=C-304;

12:C:=C-334

End;

if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')

else

Case C mod 10 of

1:Write('До нового года остался ',C,' день');

2..4:Write('До нового года осталось ',C,' дня');

0,5..9:Write('До нового года осталось ',C,' дней')

End

End

Объяснение:

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