Радио изобрели в 1895 году. MDCCCXCV
Первый полет в космос состоялся в 1961 году. MCMLXI
Олимпийские игры в Москве были проведены в 1980 году. MCMLXXX
Div - операция целочисленного деления
31 div 5 = 6
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
Const
m = 10;
var
a: array[1..m] of integer;
i,j, min: integer;
begin
write ('Исходный массив: ');
for i := 1 to m do
begin
a[i] := random(100);
if (i=1) or (a[i]<min) then min:=a[i];
write (a[i],'; ');
end;
writeln;
for i:=1 to m do
begin
if a[i]=min then
begin
for j:=i to m-1 do
a[j]:=a[j+1];
break;
end;
end;
a[m]:=0;
write('Измененный массив: ');
for i := 1 to m-1 do
write (a[i],'; ');
<span>end.</span>
Ответ:
20 1,2 35 134.72
201.235.134.72
АВГБ
Объяснение:
Так как IP-адрес не может иметь в 4 частях числа больше 255, просто подставляем методом перебора подходящие значения