Ввести два целых числа: X и Y. Вычислить выражение Y = sin x2 + + cos x2, если число X...

Question

Ввести два целых числа: X и Y. Вычислить выражение Y = sin x2 +
+ cos x2, если число X меньше либо равно 3, иначе вычислить остаток от деления X на 3.

Answer 1

Var
x: integer;
y:real;
begin
read(x, y);
y := sin(2 * x) + cos(2 * x);
if x > 3 then
writeln(x mod 3)
else
writeln(y);
end.