Var
x:real;
begin
x:=-1.23;
while x<=6.23 do begin
if x<0 then
Writeln('X=',x:5:2,', логарифм определен только для X>0')
else
Writeln('X=',x:5:2,', Y=',5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));
x:=x+0.95
end
end.
Результаты
X=-1.23, логарифм определен только для X>0
X=-0.28, логарифм определен только для X>0
X= 0.67, Y=3.8400812285669
X= 1.62, Y=11.7979662317412
X= 2.57, Y=22.3951919304867
X= 3.52, Y=35.2768703313243
X= 4.47, Y=50.1281674989484
X= 5.42, Y=66.7243610613755
Если сообщение "Десанта не будет!", то высадка десанта будет через 142 часа, точнее через 5 дней и 12 часов.
Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.
Таких чисел 25, запустите программу и убедитесь сами.
Лллмммлткмлткм
л- луковица
м- морковка
т-тыква
к-капуста
<span>С:\Транспорт\Сухопутный\Автомобили
1. </span><span>поднялся на один уровень вверх
</span>С:\Транспорт\Сухопутный
2. <span>спустился на один уровень вниз
</span>С:\Транспорт\Сухопутный\Почтовый
3. <span>спустился на один уровень вниз</span>
С:\Транспорт\Сухопутный\Почтовый\Железнодорожный
Ответ: 1