Program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете длину'); readln(b); writeln ('пример=', 2(a+b)); writeln ('площадь=', ab); end. нужно подставить: ширину [15,20] длину ...

Question

Program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете длину'); readln(b); writeln ('пример=', 2(a+b)); writeln ('площадь=', ab); end. нужно подставить: ширину [15,20] длину ...

Program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете длину'); readln(b); writeln ('пример=', 2*(a+b)); writeln ('площадь=', a*b); end. нужно подставить: ширину [15,20] длину [20,30] , a:= random (6)+15 rectangle (x1y1,x2y2)

Гость

Ответ(ы) на вопрос:

Accepted Answer

программа рисует прямоугольник, длина и ширина которого задана случайным образом в указанном диапазоне program name; uses GraphABC; var a,b,X1,X2,Y1,Y2: integer; begin a:= random (6)+15; b:= random (9)+20; X1:=300; X2:=X1+a; Y1:=300; Y2:=Y1+b; rectangle (X1,Y1,X2,Y2); end.

Program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете длину'); readln(b); writeln ('пример=', 2*(a+b)); writeln ('площадь=', a*b); end. нужно подставить: ширину [15,20] длину ...

Program name; uses crt; var a,b: integer; begin writeln ('введите ширину'); readln(a); writeln ('введете длину'); readln(b); writeln ('пример=', 2(a+b)); writeln ('площадь=', ab); end. нужно подставить: ширину [15,20] длину ...