Question

Как сделать калькулятор в PascalABC, что бы он складывал, вычитал, умножали делил все числа?​

Answer 1

Ответ:

uses crt;

var a,b,c:integer;

d:string;

begin

clrscr;

writeln('Введите первую цифру');

readln(a);

writeln('Введите знак операции');

readln(d);

writeln('Введите вторую цифру');

readln(c);

if d=('+') then b:=a+c;

if d=('-') then b:=a-c;

if d=('*') then b:=a*c;

if d=('/') then b:=a div c;

writeln('Ответ: ',b);

readln;

end.

Объяснение: