Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Там где цифры,это и есть кегль
Самый громкий звук
Самый громкий звук на свете издает.. креветка.
Шум "слоя креветок" - единственный из всех естественных шумов, способный "ослепить" сонар подводной лодки, оглушив акустика сквозь наушники.
Уровень шума, производимого скопищем креветок, доходит до оглушительных 246 децибел. Даже с учетом того, что звук в воде распространяется быстрее, он приравнивается к 160 децибелам в воздухе - гораздо громче, чем шум при взлете реактивного самолета (140 дБ) или порог болевой чувствительности человека.
Источником шума являются триллионы креветок, одновременно щелкающие своей "негабаритной" клешней. Щелкающие креветки, представители разнообразных видов Alpheus и Synalpheus, встречаются в неглубоких водах тропиков и субтропиков.
Var n: longint;
k: integer;
begin
k:=0;
write('Введите число: ');
readln(n);
while n>0 do
begin
if n mod 10 mod 2<>0 then
k:=k+1;
n:=n div 10;
end;
writeln('В числе ',k,' нечетных цифр');
readln;
<span>end.</span>
В пункт F можно попасть из пунктов A,D,E
Длина пути A->F равна 20
Рассмотрим пути из пункта A в пункт D
A->D (длина 7)
A->B->D (длина 8)
A->C->D (длина 8)
Самый короткий из них - путь A->D
Далее, из пункта D можно сразу попасть в пункт F, а можно через пункт E
D->F (длина 11)
D->E->F (длина 9)
кратчайший путь - путь D->E->F
сложив его длину с длиной пути A->D, получим 16
Сравнив этот путь с A->F, делаем вывод, что путь A->D->E->F самый короткий (его длина равна 16)