Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Ну вкратце... Жили-были мегабайты, было им тяжко хранить информацию по одиночке... Бла бла бла... И вот решили они объедениться. И стали они гигабайтом.
Внешние: глобус, телефон, компьютер, школа.
Внутренние: ластик, сигнал, карандаш, окно.
Вроде так.
Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
78.4₁₂ = 7·12¹+8·12⁰+4·12⁻¹ = 7·12+8·1+4/12 = 84+8+0.3333... = 92.333...₁₀