Уисполнителя вычислитель две команды умножь на 3 и вычесть 1 нужно за 5 команд из 1 сделать 23

244

418

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

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

cobaincurt

Информатика

4,5(87 оценок)

1. 1*3=3 2. 3*3=9 3. 9-1=8 4. 8*3=24 5. 24-1=23

sohibjon457

Информатика

4,4(6 оценок)

//pascal abc.net 3.1 сборка 1219 //вариант с нормальным интерфейсом uses system,system.windows.forms; var myform: form; mybutton: button; mytextbox1: textbox; mytextbox2: textbox; mytextboxrez: textbox; procedure mybuttonclick(sender: object; e: eventargs); var i,ar,a,b: integer; begin a: =strtoint(mytextbox1.text); b: =strtoint(mytextbox2.text); ar: =1; for i: =1 to b do ar: =ar*a; mytextboxrez.text: =ar.tostring; end; begin myform: =new form; //создание объекта - формы myform.left: =500; myform.top: =500; myform.autosize: =true; myform.width: =300; myform.height: =100; mytextbox1: =new textbox; //создание объекта - текстового поля для числа mytextbox1.left: =80; mytextbox1.top: =40; mytextbox1.enabled: =true; mytextbox1.width: =105; mytextbox1.height: =100; mytextbox1.maxlength: =16; mytextbox1.readonly: =false; mytextbox1.visible: =true; mytextbox2: =new textbox; //создание объекта - текстового поля для степени mytextbox2.left: =80; mytextbox2.top: =80; mytextbox2.enabled: =true; mytextbox2.width: =105; mytextbox2.height: =100; mytextbox2.maxlength: =16; mytextbox2.readonly: =false; mytextbox2.visible: =true; mytextboxrez: =new textbox; //создание объекта - текстового поля для результата mytextboxrez.left: =80; mytextboxrez.top: =120; mytextboxrez.enabled: =true; mytextboxrez.width: =105; mytextboxrez.height: =100; mytextboxrez.maxlength: =16; mytextboxrez.readonly: =true; mytextboxrez.visible: =true; mybutton: =new button; //создание объекта - кнопки mybutton.text: ='^'; mybutton.left: =80; mybutton.top: =160; mybutton.autosize: =true; myform.controls.add(mytextbox1); myform.controls.add(mytextbox2); myform.controls.add(mytextboxrez); myform.controls.add(mybutton); mybutton.click+=mybuttonclick; application.run(myform); end. //вариант с crt uses crt; var a,b: integer; function fpow(a,b: integer): integer; var rez,i: integer; begin rez: =1; //чтобы не было 0 for i: =1 to b do //умножаем rez на a b раз чтобы получить нужную степень rez: =rez*a; fpow: =rez; end; begin clrscr; write('введите число: '); readln(a); write('введите требуемую степень числа: '); readln(b); writeln('результат: ',fpow(a,b)); end. пример ввода: 2 10 пример вывода: 1024