12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 uses crt; var a,b,c: integer; procedure f(var a,b: integer); var tmp: integer; begin if (a> b) then begin tmp: =a; a: =b; b: =tmp; end; end; begin clrscr; write ('a= '); readln (a); write ('b= '); readln (b); write ('c= '); readln (c); f(a,b); f(a,c); f(b,c); writeln ('a= ',a,' b= ',b,' c= ',c); readln end.
helenavalenti2846
20.02.2021
Когда мы копируем рисунок в буфер, то он определенного размера. создадим второго слона. для этого надо выполнить все 4 команды: 1,2,3,4. второй слон стал на 80% меньше первого. создадим третьего слона. если мы сейчас снова вставим слона из буфера (команда 3), то вставится первый слон, и команду 4 придется делать 2 раза, чтобы он стал на 80% меньше, чем второй слон. поэтому для третьего слона нужно выделить второго и опять проделать все 4 команды: 1,2,3,4. чтобы получить еще 6 слонов, нужно эти команды повторить 6 раз. ответ: в) повторить (1,2,3,4; 6)