Question

PASCAL ABC. Найти значение любого выражения из двух слагаемых!!! т.е. просто чтоб посчитало, например: 2+2=4, 9/3=3, 7*7=49, 15-5=10

Answer 1

var
x,y,v:real;
b:string;
begin
writeln('Vvedite znak virajeniya (+, -, *, /)');
readln(b);
writeln('Vvedite pervoe chislo');
readln(x);
writeln('Vvedite vtoroe chislo');
readln(y);
if b = '+' then v:=x+y;
if b = '-' then v:=x-y;
if b = '*' then v:=x*y;
if b = '/' then v:=x/y;
writeln(x, ' ', b, ' ', y, ' = ', v);
end.