Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад