5)
program ex1;var x, y, z : integer;begin x:= 17; y:= -9; if x < y then z:= x * y else z:= y + x; writeln(z);end.
6)
program ex1;var x, tmp : real;begin readln(x); if x<=0 then tmp:=(sin(sqr(x)) - sqrt(power(x,3)+1))/(5*power(x,4)+ 3.5*x); if (x>0) and (x<=4) then tmp:=sqrt(x+sqrt(x+1))+4*x; if x>4 then tmp:= (1.44*abs(power(x,3)-1)-2.5*x)/(x+1);write(tmp);end.
7)
program ex1;var a,b,c:integer;begin readln(a,b,c); if (a>= -3) and (a<2) then write (' a '); if (b>= -3) and (b<2) then write (' b '); if (c>= -3) and (c<2) then write (' c ');end.
Время остановки:
- 1³1²0¹0⁰₍₂₎= 1x2³+1x2²+0+0 = 8+4 = 12₍₁₀₎
- C₍₁₆₎ в десятичной системе равна 12₍₁₀₎
- 5¹0⁰₍₈₎= 5x8¹+0 = 40₍₁₀₎
- 4¹0⁰₍₅₎= 4x5¹+0 = 20₍₁₀₎
- 2¹9⁰₍₁₁₎= 2x11¹+9x11⁰ = 2x11+9x1 = 22+9 = 31₍₁₀₎
Теперь получившиеся числа нужно лишь добавить к времени прибытия на соответствующие станции, чтоб получить время отправления:
- 07:18 + 12 мин = 7:30
- 09:48 + 12 мин = 10:00
- 13:15 + 40 мин = 13:55
- 0:25 + 20 мин = 0:45
- 10:15 + 31 мин = 10:46
Путь (решение во вложении):
- 381 км.
- 537 км.
- 697 км.
- 1283 км.
- 1625 км.
- 1699 км.
Управляющий объект - Мышь Объект управления - экранные объекты
Управляющий объект - процессор Объект управления - данные
Var
A,S:real;
i:integer;
Begin
A:=5;
S:=A;
For i:= 1 to 6 do
Begin
A:=A*1.1;
S:=S+A;
End;
WriteLn(A:0:3,' ',S:0:3)
End.
Если на каждый цвет выделено по байту (и нет прозрачности), то i = 32*64*3 = 6144 байт = 6 Кбайт.