Пожалуйста))))))))))))))))))))))))))))))))))))очень нужно, очень...

Question

Пожалуйста))))))))))))))))))))))))))))))))))))очень нужно, очень срочно)))))))))))))))))))))
Задача: Экзамен по информатике проводится 31 числа. Пользователь вводит целое положительное число N от 0 до 31. С помощью оператора case напечатать фразу «До проведения экзамена осталось N дней» (вместо N должно быть напечатано число), при этом правильно просклоняв слово « дней» ( «день», «дня» ) в зависимости от значения введенного N.

Answer 1

Program chisl;
var n:integer;
begin
read(n);
case n of
1,21,31 : writeln('До проведения экзамена осталось ',n,' день');
2,3,4,22,23,24 : writeln('До проведения экзамена осталось ',n,' дня');
5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,26,27,28,29,30 : writeln('До проведения экзамена осталось ',n,' дней');
end;
end.

Comments

спасииибо, огромное))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))надеюсь правильно)))))))))))))))))