Question

Ввести номер месяца и номер дня, вывести число дней, оставшихся до нового года. пример: введите номер месяца 12 введите день 25 до нового года осталось 6 дней. p.s.: надо постараться использовать if, while, repeat, until, div mod, case of (не обязательно использовать все из этого)

Answer 1

Без "if, while, repeat, until, div mod, case of" получается короче и проще:
const 
days:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
var m,d,k,i:integer;
begin
writeln('Введите номер месяца');
readln(m);
writeln('Введите день');
readln(d);
k:=0;
for i:=1 to m-1 do k:=k+days[i];
k:=365-k-d;
writeln('До Нового года осталось ' ,k,' дней (день/дня)');
end.

Пример:
Введите номер месяца
12
Введите день
25
До Нового года осталось 6 дней (день/дня)