Написать программу калькулятор на паскале с использованием if.

Question

Написать калькулятор на паскале с использованием if.

Answer 1

var a,b,c,k:integer;
    znak:char;
begin
  writeln('Введите первое число');
  readln(a);
  writeln('Введите знак операции. Допустимые знаки: *,/,+,-');
  readln(znak);
  writeln('Введите второе число');
   readln(b);
   k:=0;
   case znak of
   '*':c:=a*b;
   '/':if b<>0 then c:=(a div b)
       else k:=1;
   '+':c:=a+b;
   '-':c:=a-b;
   end;
  if k=0 then writeln('Ответ - ',c)
  else writeln('Деление на 0')
end.