Регистрация
adeluka5
05.07.2021 12:52
Информатика
Есть ответ 👍

составить прогромы по фото ​

196
323
Посмотреть ответы 2

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

маргарита209
маргарита209
4,7(33 оценок)

(a)uses drawman;

begin

field(6,3);

topoint(1,0);

pendown;

topoint(2,1);

topoint(1,2);

topoint(0,1);

topoint(1,0);

penup;

topoint(3,0);

pendown;

topoint(4,1);

topoint(3,2);

topoint(2,1);

topoint(3,0);

penup;

topoint(5,0);

pendown;

topoint(6,1);

topoint(5,2);

topoint(4,1);

topoint(5,0);

end.

Объяснение:

adadov12345
adadov12345
4,6(21 оценок)
Var x,y,z: integer; procedure min(x,y) begin if x> y then return x; else return y; end; procedure max(x,y) var c: integer; c=x+y-ma(x,y); return c; end; begin read (c); z=min(x,y)+max(x*y,x+y); writeln(z); end.

Популярно: Информатика