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

Question

Информатика

Галинуша

16 апреля, 00:03

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

+1

Ответы (1)

Знаете ответ?

Петуля · Answer 1

Для текущего месяца (т. е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)

program zd;

const

b=26;

var

a, c:byte;

begin

writeln ('Введите день') ;

readln (a) ;

if a
c:=b-a

else {иначе вывести смс}

writeln ('Данный день уже прошёл') ;

writeln ('Осталось', с, 'дней') ;

end.

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