Вводится 20 чисел от 1 до 20. Если число четное,то вывести его синус,если нечетное то...

Question

Вводится 20 чисел от 1 до 20. Если число четное,то вывести его синус,если нечетное то косинус.

Answer 1

Var ar:array[1..20] of integer;
i:integer;
begin;
for i:=1 to 20 do
begin;
readln(ar[i]);
if (ar[i]>20) or (ar[i]<1) then exit;<br>if ar[i] mod 2=0 then writeln(sin(ar[i])) else writeln(cos(ar[i]));
end;
end.