Программа Turbo Pascal
Задача1. Дано число х. Напечатать в порядке возрастания числа х,1+|х| и (1+х²).
Задание2. Опреднлить количество дней в году,в который вводит пользователь.
В високосном годе - 366 дней, тогда в обычном 365. Високосными годами являются все года деляющиеся нацело на 4 за исключением столетий,которые не делятся нацело на 400.
Алгоритм решения задачи:
1) Проверяем делится ли год на 4. Если нет,то год уже невисокосный.
2) Если год делится на 4,то проверяем делится ли он на 100. Если нет,то год однозначно високосный .
3) Если год делится на 100, но при этом не делится на 400, то год невисокосный.
------------------------------------------------------------------------------------
Мне нужно составить кратко,на подобии этого
Program
Var
Begin
Readln
If ... Then ...
Writeln
End.