Ответы на вопрос:
Var c1,c2: char; x: string; beginwriteln('введите двухзначное число'); readln(x); if length(x)=2 then begin c1: =x[1]; c2: =x[2]; writeln('число наоборот = '+c2+c1); end else writeln('ошибка, невероне число'); end.
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет) program zd; const b=26; var a,c: byte; begin writeln('введите день'); readln(a); if a< b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни} c: =b-a else {иначе вывести смс} writeln('данный день уже прошёл'); writeln('осталось', с, 'дней'); end. вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Популярно: Информатика
-
Rufa7711.06.2020 21:34
-
elsem7806.12.2021 10:12
-
Abzik520322.10.2021 12:23
-
мират312.04.2021 12:46
-
Fjk123cg09.03.2021 10:46
-
МикаэльБостон15.09.2021 18:18
-
hac2016.01.2021 18:40
-
Варежкамяу03.11.2021 05:33
-
Tanya22rus24.10.2021 20:37
-
lmarki200301.09.2022 06:37