Помогите пожалуйста определить високосный ли год или нет. Пишет YES или NO и следующий ближайший високосный год. Это в паскале. Пожалуйста,помогите!
Ответы
Ответ дал:
0
Program n1;
var a,i: integer;
begin
readln(a);
if (a mod 4 = 0) and (a mod 100<>0) or (a mod 400=0)
then writeln ('yes') else writeln ('no');
i:=a;
while true do
begin
i:=i+1;
if (i mod 4 = 0) and (i mod 100<>0) or (i mod 400=0) then
begin
writeln(i);
break;
end;
end;
end.
var a,i: integer;
begin
readln(a);
if (a mod 4 = 0) and (a mod 100<>0) or (a mod 400=0)
then writeln ('yes') else writeln ('no');
i:=a;
while true do
begin
i:=i+1;
if (i mod 4 = 0) and (i mod 100<>0) or (i mod 400=0) then
begin
writeln(i);
break;
end;
end;
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад