Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Здесь идёт чередование чётных чисел с нечётными
Оставьте таблицу перевода долларов в рубли по обычному и льготному (больше $100) курсу. Конкретные значения курсов обмена задаются в ячейках В6 и В7. Задача решается с помощью ввода формулы в ячейку В10 и копирования ее в В11:В43.
Курс $
Льготный курс $
Cумма ($) На руки
5
10
15
20
25
30
35
40
45
50
55
60
65
70
75
80
85
90
95
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
0
Вроде так
№1
1) 5*(-3+5+1)=15
2) 5*(1+8+1)=50
Чтобы вернуться в точ(0;0) нужно выполнить команду Сместиться на (-15;-50)
№2
1) 6*(1-2+3)-2=10
2) 6*(0+3-2)+1=7
ответ: чертежник в точке (10;7)
А - 03
Б - 07
В - 11
Г - 112
Д - 132
Е - 179
Ж - 221
З - 02
И - 75
Й - 83
К = 256
Л - 773
и т.д.
С числами так же, только, например, 1 - это А, 2 - это Б, и так до 9.
В буквах - значение чисел не должно совпадать, как и в числах.