Написать программу в паскале. Определить количество дней в году, который вводит пользователь.
Написать программу в паскале.
Определить количество дней в году, который вводит пользователь.
Гость
Ответ(ы) на вопрос:
Гостьvar y: integer;
begin
write('vvedite god: ');
readln(y);
if y mod 4 = 0 then
y := 366
else
y := 365;
writeln('dnei v godu: ', y);
end.
ГостьVar
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 4 = 0 then Write(366)
else Write(365)
End.
Не нашли ответ?
Похожие вопросы