Написать программу в паскале.

Определить количество дней в году, который вводит пользователь.

Question

Информатика

Вавила

2 ноября, 20:05

Написать программу в паскале.

Определить количество дней в году, который вводит пользователь.

+2

Ответы (2)

Знаете ответ на вопрос?

Артемий · Answer 1

Var

A:integer;

Begin

Write ('A = ') ; ReadLn (A) ;

if A mod 4 = 0 then Write (366)

else Write (365)

End.

Летя · Answer 2

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.

Написать программу в паскале.Определить количество дней в году, который вводит пользователь.

Написать программу в паскале.

Определить количество дней в году, который вводит пользователь.