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

Question

Информатика

Пашута

22 июля, 06:26

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

+3

Ответы (1)

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

Олежка · 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;

if ar[i] mod 2=0 then writeln (sin (ar[i])) else writeln (cos (ar[i])) ;

end;

end.