Uses crt;
var a,b,c,ch1,ch2:integer;
begin
readln (a,b,c)
if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;
if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end;
if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;
writeln ('преведущее = ',ch2,'последущее = ',ch1);
end.
Не пойму что тут делать с goto
Берешь мышь в руки, двигаешь ею стрелку к меня пуск далее в строке пишешь paint и там в списке он будет, нажимаешь на нее и пользуешься на здоровье
Вроде это :
<span>сбор, подготовка, передача, обработка, хранение, отображение</span>
Решение достаточно простое. В самом деле, "Повтори 10" говорит нам о том, что будет нарисовано нечто из 10 одинаковых элементов.
Что именно выполняется 10 раз? Поворот направо на 20 градусов, затем рисование прямой линии длиной 36 единиц и снова поворот направо, но уже на 40 градусов. Т.е. угол между прямыми составит 40+20=60 градусов.
За 6 циклов будет нарисован правильный шестиугольник (6х60=360 градусов), а оставшиеся 4 шага пройдут по уже нарисованным линиям, т.е. 4 шага лишние.
<em>Ответ: 3) правильный шестиугольник</em>
0,041696 1 мб 1000кб . 1000мб 1гб