Var s,k:integer;
begin
s:=0;
for k:=3 to 10 do
s:=s+13;
write(s);
<span>end.
Ответ 104</span>
№ поезда Место Время отправления Время стоянки;
21 Пермь 12-10 ---
и т.д.
Я бы так сделал
Var x,y,f,z,a:real;
begin
write('Введите x,z: ');
readln(x,z);
if x>13 then f:=-3/(x+1)
else f:=-(x*x*x)+9;
if x<1 then y:=x*x
else
if x>1 then y:=x*x*x
else y:=x;
if x>z then a:=y*z*z/(3+power(2,3/5))
else a:=2*cos(x+z);
writeln('F(x)=',f);
writeln('Y=',y);
writeln('A=',a);
<span>end.
Если функции power нет, то вместо
</span>if x>z then a:=y*z*z/(3+power(2,3/5))
напечатать
if x>z then a:=y*z*z/(3+exp(3/5*ln(2))
Дано:
Мулььи N=16;120
Пульти N=32;96
Найти i
Решение. N=2i
1)16=2i, i=4(бит) на 1 символ в племени Мульти
2) 32=2i=i=5(бит) на 1 символов в племени Пульти
3) 120*4=480(бит) сообщение племени Мульти
4)96*5=480(бит) сообщение племени Пульти
Ответ: они равны)
100/7=14.2 значит пройдёт 14 недель и 2 дня, значит будет суббота