Предмет: Информатика, автор: 444nastja19987

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

Ответы

Автор ответа: kavko903
0
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.
Похожие вопросы
Предмет: Биология, автор: abduvalisaliev777
Предмет: Қазақ тiлi, автор: kucerovkirril