Что надо сделать???!!!???!!!
uses GraphABC;
var n:integer;
begin
writeln('Введите номер фигуры (1-квадрат, 2-треугольник, 3-круг):');
readln(n);
setwindowsize (640,480);
setpencolor (clBlue);
setpenwidth (4);
case n of
1: begin
setwindowtitle ('квадрат');
rectangle(200,100,400,300);
end;
2: begin
setwindowtitle ('треугольник');
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
3: begin
setwindowtitle ('круг');
circle(300,200,120);
end;
end;
end.
Без звука. выключить. включить. переключать каналы.
менять громкость.
Тут легче в обратном порядке
100 / 2 = 50
50 / 2 = 25
25 - 1 = 24
24 / 2 = 12
12 / 2 = 6
6 / 2 = 3
3 - 1 = 2
2 / 2 = 1
Теперь опять в прямом порядке
*2 +1 *2 *2 +1 *2 *2
var name=prompt("Укажите своё имя:"),
surname=prompt("Укажите свою фамилию:"),
age=prompt("Укажите свой возраст:");
alert("Здравствуйте "+name+" "+surname);
alert(age<18?"Вы не совершеннолетний":"Вы совершеннолетний");