![Феофилакт](https://sproshu.net/uploads/ava/2/ava7812.jpg)
Феофилакт
5 год назад
Дан номер года . Определить является ли он высокосным. Сделать блок-схему и программу
ОТВЕТЫ
![Амандин](https://sproshu.net/uploads/ava/3/ava6520.jpg)
Амандин
Jun 30, 2019
Program gt;
var n:longint;
begin
readln(n);
case n of
1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100lt;gt;0))then writeln(YEs) else
writeln(NO);
end;
end.
var n:longint;
begin
readln(n);
case n of
1..10000: if(n mod 400=0)or((n mod 4=0)and(n mod 100lt;gt;0))then writeln(YEs) else
writeln(NO);
end;
end.
127
Смежные вопросы: