Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1) Без человека не было бы тезнологии
2) человек может сделать все, что он захочет (и бывает в плохих мерах)
3)человек делает свое поколение
program ssd;
uses crt,graph;
var d,m: integer;
begin
clrscr;
initgraph(d,m,'');
arc(200,200,360,180,50);
line(150,200,250,200);
readkey; closegraph;
end.
program;
var
max,val: integer;
label
start, ends;
max: =-50;
val: =50;
start:
if val> max then val: =val-10
if val=max then goto ends;
goto start;
ends:
Популярные вопросы