SHARE
TWEET

Untitled

a guest Oct 17th, 2019 96 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program MyFirstCalc;
  2. Var oper:char;
  3.     num1,num2:integer;
  4. begin
  5.     readln(num1);
  6.     readln(oper);
  7.     readln(num2);
  8.     case oper of
  9.         '-':writeln('Ответ = ', num1 - num2);
  10.         '+':writeln('Ответ = ', num1 + num2);
  11.         '*':writeln('Ответ = ', num1 * num2);
  12.         '/':writeln('Ответ = ', num1 / num2);
  13.     else
  14.         writeln('Неверный формат');
  15.     end;
  16. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top