Var
x, cs, tg: real;
begin
Write('Введите число в диапазоне [0..3.14]: ');
Readln(x);
if (x < 0) or (x > 3.14) then Writeln('Число вне диапазона')
else begin
cs := cos(x); tg := tan(x);
if cs > tg then Writeln('cosX > tgX')
else if cs = tg then Writeln('cosX = tgX')
else Writeln('cosX < tgX')
end
end.
Тестовое решение:
Введите число в диапазоне [0..3.14]: 1.58
cosX > tgX
Качество картинки не самое лучшее
Var
x,k:integer;
a:array[1..100] of integer;
begin
k := 0;
read(x);
while x <> 0 do
begin
k := k + 1;
a[k] := x;
read(x)
end;
writeln(k);
for x := 1 to k do
write(a[x],' ')
<span>end.</span>
Телефон - тело и фон
диск-дисней и бува к
школа-кола (перед кола буква ш)