Вводится 20 чисел от 1 до 20. если число четное,то вывести его синус,если нечетное то косинус.
135
491
Ответы на вопрос:
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.
Популярно: Информатика
-
nikolay94629.09.2021 13:48
-
linmiss10.03.2023 20:15
-
Крумина92719.10.2022 19:59
-
daschkavolf03.07.2022 04:07
-
tor14200315.06.2023 10:03
-
1553VinyaPyhtya18.07.2022 10:10
-
fgdgtdgg17.11.2021 23:40
-
Xcalibur02.02.2021 17:18
-
inna7503.11.2021 10:05
-
3333п24.11.2020 15:35