1. Остановиться на тротуаре перед светофором.
2. Посмотреть на светофор.
3. Если горит красный или желтый свет, то ждать, пока на светофоре не загорится зеленый.
4. Если горит зеленый свет, перейти дорогу до тротуара противоположной стороны улицы.
5. Стоп.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,0,100); a.Println;
Sort(a,(x,y)->x>=y); a.Println
end.
<u>Пример</u>
49 17 50 84 14 9 69 5 40 70
84 70 69 50 49 40 17 14 9 5
А) 100111
Б) 101011
В) 1101111
Г) 101001101
Program Programma;
Uses crt;
var xA,xB,yA,yB,D: real;
Begin clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB);
d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
write('Длина отрезака AB = ',d:0:3)
End.