1-ое:
PRINT "XaY=R"
PRINT "a - action"
WHILE e$ <> "y"
10 INPUT "X"; x
INPUT "Y"; y
INPUT "a"; a$
SELECT CASE a$
CASE "+"
PRINT x; "+"; y; "="; (x + y)
CASE "-"
PRINT x; "-"; y; "="; (x - y)
CASE "*"
PRINT x; "*"; y; "="; (x * y)
CASE "/"
IF y <> 0 THEN
PRINT x; "/"; y; "="; (x \ y)
ELSE PRINT "Oops! Divided by 0"
END IF
CASE "^"
PRINT x; "^"; y; "="; (x ^ y);
CASE ELSE
PRINT "ZOMG! Error"
END SELECT
INPUT "Exit(y/n)"; e$
WEND
2-ое:
program ololo;
var
x,y,e: integer;
a: string;
begin
IF (paramcount > 2) and (paramcount < 4) then
begin
val(paramstr(1), x, e);
val(paramstr(3), y, e);
a:=paramstr(2);
case a[1] of
'+': write(x,a,y,'=',x+y);
'-': write(x,a,y,'=',x-y);
'*': write(x,a,y,'=',x*y);
'/':
begin
if y<>0 then write(x,a,y,'=',x div y) else write('Divided by zero!')
end;
end;
end;
end.
Всё остальное в процессе