Как сделать кнопку на pascal abc сможете добавить вот сюда program калькулятор; var a,b,c,d,e,f,q: real; begin writeln ('введите число a: '); readln(a); writeln ('введите число b: '); readln(b); writeln('выберите,что вы хотите сделать с этими числами,1-сложение,2-вычитание,3-умножение,4-деление'); readln(q); if (q=1) then begin d: =a+b; writeln('ваш результат: ',d); end; if (q=2) then begin f: =a-b; writeln('ваш результат: ',f); end; if (q=3) then begin c: =a*b; writeln('ваш результат: ',c); end; if (q=4) then begin e: =a/b; writeln('ваш результат: ',e); end; end.

Wolfie2006    3   06.10.2019 00:30    1