Уважаемые знатоки информатики! по информатике задали составить программу в pascal: сколько дней осталось до данного числа (26.10.14)? нужно, чтобы она высчитывала это кол-во дней.
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет) program zd; const b=26; var a,c:byte; begin writeln('Введите день'); readln(a); if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни} c:=b-a else {иначе вывести смс} writeln('Данный день уже 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.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь