Уменя есть просьба) я учусь в техникуме и нам нужно сделать лабораторные работы. может уже кто то такие делал, скиньте ) например вот работа #13 1. создайте папку с названием лабораторная работа №13_ваша фамилия. 2. создайте три рисунка согласно вашему варианту в редакторе paint и вставьте их в отчет. 2. создайте схему полусумматора двоичных чисел в редакторе paint и вставьте ее в отчет.

Рекурсивная: function nod(x,y: integer): integer; begin   if x< > 0 then nod: =nod(y mod x,x) else nod: =y; end; var a,b: integer; begin write('a='); readln(a); write('b='); readln(b); writeln('нод=',nod(a,b)); end.не  рекурсивная: function nod(x,y: integer): integer; beginwhile (x< > 0)and(y< > 0) do  if x> y then x: =x mod y else y: =y mod x; nod: =x+y; end; var a,b: integer; beginwrite('a='); readln(a); write('b='); readln(b); writeln('нод=',nod(a,b)); end.пример: a=125b=50нод=25

Uses  drawman; begin field(24,32); topoint(10,4); pendown; topoint(10,1); topoint(14,1); topoint(14,4); topoint(22,4); topoint(16,14); topoint(20,14); topoint(15,22); topoint(18,22); topoint(12,31); topoint(6,22); topoint(9,22); topoint(4,14); topoint(8,14); topoint(2,4); topoint(14,4); penup; topoint(10,11); pendown; topoint(10,10); topoint(9,10); topoint(8,9); topoint(8,7); topoint(9,6); topoint(11,6); topoint(12,7); topoint(12,9); topoint(11,10); topoint(10,10); penup; topoint(9,19); pendown; topoint(9,18); topoint(8,17); topoint(9,16); topoint(10,17); topoint(9,18); penup; topoint(15,12); pendown; topoint(15,11); topoint(14,11); topoint(14,9); topoint(16,9); topoint(16,11); topoint(15,11); penup; topoint(14,21); pendown; topoint(14,20); topoint(13,19); topoint(14,18); topoint(15,19); topoint(14,20); penup; topoint(12,27); pendown; topoint(12,26); topoint(11,25); topoint(11,24); topoint(13,24); topoint(13,25); topoint(12,26); penup; topoint(0,0); end.