Предмет: Информатика, автор: hujkhgjk

Конструктор алгоритмов.Вводится число - номер года. Определить является ли этот год високосным. Високосным считается год, кратный 4, но не оканчивающийся двумя нулями (1900 - не високосный, но 2000 - високосный

Ответы

Автор ответа: Aniforka
0

Ответ:

program abc;

var a:integer;

begin

  writeLn('Введите год');

  write('=> ');

  readLn(a);  

  if (a mod 4 = 0) and ((a mod 1000 = 0) or (a mod 100 <> 0)) then writeLn('Год ',a,' - високосный') else writeLn('Год ',a,' - не високосный')

end.

Объяснение:

Похожие вопросы
Предмет: Математика, автор: ademei048
Предмет: Математика, автор: Аноним