<span>Вложенный оператор применяется в тех случаях, когда для выполнения действия требуется соблюдение сразу нескольких условий, которые не могут быть указаны в одном условном выражении</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a,b,x,fx:real;
Write('Введите a b x: '); Read(a,b,x);
if x>=2 then fx:=a+b*sqr(tan(x))
else fx:=ln(abs(x/(a+b)));
Writeln('y=',cos(fx))
end.
<u><em>Тестовые решения:</em></u>
Введите a b x: 3.5 2.18 4.7
y=0.486472312761788
Введите a b x: -3 8.15 0.035
y=0.275408828695224
Const n=25;
var a,b:array[1..n] of integer;
i,j,t:integer;
begin
Randomize;
writeln('Результаты:');
for i:=1 to n do
begin
a[i]:=random(31)+10;
write(a[i]:3);
end;
writeln;
for i:=1 to n do b[i]:=i;
for i:=1 to n-1 do
for j:=1 to n-i do
if a[b[j]]>a[b[j+1]] then
begin
t:=b[j]; b[j]:=b[j+1]; b[j+1]:=t;
end;
writeln('Победитель:');
writeln('min = ',a[b[1]],' его номер = ',b[1]);
j:=1;
while b[j]<>4 do j:=j+1;
writeln('Результат российского лыжника: ', j,' место');
end.
Пример:
Результаты:
38 19 22 11 16 40 22 18 21 16 15 33 38 34 39 21 19 10 25 15 40 13 34 27 37
Победитель:
min = 10 его номер = 18
Результат российского лыжника: 2 место
PS. Места, которые заняли спортсмены с одинаковыми результатами, в программе будут различны.
<span>Информация
в нашей жизни играет огромную роль. Благодаря информации, человек учиться
мыслить, формирует свои взгляды на те или иные вещи. Без информации не
существовало бы общества. Существует множество видов информации. Мы получаем её
когда слушаем кого-то, рассматриваем, нюхаем и даже трогаем. Очень важно
фильтровать информацию, которую получаешь. Нельзя запоминать всё, что видишь и
слышишь (это засоряет твою речь и твой разум). Существует так-же дезинформация.
Дезинформацией называется один из способов манипулирования информацией, как то
введение кого-либо в заблуждение путём предоставления неполной информации или
полной, но уже не нужной информации, или полной, но не в нужной области,
искажения контекста, искажения части информации.</span>