Программа паскаль. Водим целое число - а; если оно делиться на 5 ть, то должно выполняться по формуле cos^3a, если не делиться на 5 ть то 3tg a

программа сама пишется через как то div, mod

Question

Информатика

Манюта

25 августа, 23:49

Программа паскаль. Водим целое число - а; если оно делиться на 5 ть, то должно выполняться по формуле cos^3a, если не делиться на 5 ть то 3tg a

программа сама пишется через как то div, mod

+1

Ответы (1)

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

Матрёна · Answer 1

Var a: integer;

begin

readln (a) ;

if (a mod 5 = 0) then

writeln ((cos (a) * cos (a) * cos (a)) : 0:5)

else

writeln ((3 * sin (a) / cos (a)) : 0:5) ;

end.