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

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

Question

Информатика

Поликсюша

11 июня, 15:44

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

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

+2

Ответы (2)

Знаете ответ?

Брина · Answer 1

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.

Македон · Answer 2

Var

A:integer;

Begin

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

if A mod 4 = 0 then Write (366)

else Write (365)

End.

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

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

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