Question

Программа 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.

Answer 1

Var year: integer;
begin
write('Введите год: ');
read(year);
if (((year mod 4 <> 0) or (year mod 100 = 0)) and (year mod 400 <> 0)) then
writeln('Невисокосный')
else
writeln('Високосный');
end.