Ответы на вопрос:
//pascal abc.net v3.0 сборка 1111 var s: string; begin; repeat writeln('уже утро? '); readln(s); if s='нет' then writeln('продолжать спать'); until s='да'; writeln('проснуться'); writeln('завтрак'); writeln('школа'); writeln('ты голоден? '); readln(s); if s='да' then writeln('обедать'); writeln('д.з.'); writeln('свободное время'); writeln('ты голоден? '); readln(s); if s='да' then writeln('ужинать'); writeln('спать'); end.
Популярно: Информатика
-
inkarmukash21.05.2023 04:40
-
диша400203.02.2021 13:44
-
dreygar20.10.2021 21:46
-
Theonly138589405.04.2021 06:32
-
FrankAnDWay19.08.2020 11:17
-
Barsvtk09.11.2020 02:43
-
VitaVita200324.07.2021 21:13
-
tel9057969295p0bj7i12.04.2020 01:49
-
Ася2oo329.12.2021 20:53
-
antonil7023.12.2020 20:35