Уважаемые знатоки информатики! По информатике задали составить программу в pascal:...

Question

Уважаемые знатоки информатики! По информатике задали составить программу в pascal: сколько дней осталось до данного числа (26.10.14)? Нужно, чтобы она высчитывала это кол-во дней.

Answer 1

Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if ac:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.

Вроде бы правильно) извиняюсь за исправления, просто тороплюсь

Comments

Огромное вам спасибо! А то в информатике я чайник, а сейчас, вроде бы, разобралась. Мне вот интересно, а если для всех месяцев, тогда как? Не могли бы помочь?

---

можно, наверное, просто добавить строчку
"writeln ('Введите месяц')"

---

сейчас напишу

---

Можно было бы реализовать так:
program zd;
const
b=26; d=10;
var
a,t,c:byte;
begin
writeln('Введите день');
readln(a);
writeln('Введите месяц');
readln(t);

---

if t<=d then {если месяц меньше указанного то проверить дальше условие}<br>if ac:=b-a;
y:=d-t;
end
else {иначе вывести смс}
writeln('Данный день и месяц уже прошёл');
writeln('Осталось', с, 'дней');
writeln('Месяцев осталось',y);
end.

Сомневаюсь, что работает/ работает правильно, но примерно так будет

---

Да-да работает! огромное вам спасибо!

---

Пожалуйста)