Напишите программу калькулятор в pascalabs.

Question

Напишите программу калькулятор в pascalabs.

Answer 1

Program Maz;  var  a,b:integer;   rez:real;    p:char;begin  write('Введите а = ');readln(a);write('Введите символ: ');  readln(p); write('Введите b = '); readln(b);  case p of   '+': rez:=a+b;  '-': rez:=a-b;  '*': rez:=a*b;   '/': rez:=a/b; end; writeln(a,p,b,'= ',rez); end.

Comments

program Maz;
var
a,b:integer;
rez:real;
p:char;
begin
write('Введите а = ');
readln(a);
write('Введите символ: ');
readln(p);
write('Введите b = ');
readln(b);
case p of
'+': rez:=a+b;
'-': rez:=a-b;
'*': rez:=a*b;
'/': rez:=a/b;
end;
writeln(a,p,b,'= ',rez);
end.