Информатика помогите срочно
Определить количество дней в году, который вводит пользователь.
В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400
Представить решение задач на языке программирования PASCAL
Алгоритм решения задачи:
1.Проверям делится ли год на 4. Если нет, то год уже невисокосный.
2.Если год делится на 4, то проверям делится ли он на 100. Если нет, то год однозначно високосный.
3.Если год делится на 100, но при этом не делится на 400, то год невисокосный
Последовательность выполнения:
1.Запустить на учебном ПК программу PascalABC.
2.Используя представленные алгоритмы решения задач, записать код программы на языке PASCAL.
3.Используя представленные алгоритмы решения задач, изобразить в тетради блок-схему поставленной задачи.
Program P1;
uses crt;
var g: integer;
begin
clrscr;
writeln ('Введите с клавиатуры год (только число (целое число), например 1976, после чего нажмите клавишу Enter.');
write ('Введите год: ');
readln (g);
if (g mod 4=0) and (g mod 100<>0) then writeln ('В ', g, ' году 366 дней.') else writeln ('В ', g, ' году 365 дней.');
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Ответ удалён