ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program calc;  
uses crt;  
var a,s,b:integer; c:char;  
begin       
     writeln('введите 1 число');       
     readln(a);       
     writeln('введите знак дейчтвия');       
     readln(c);       
     writeln('введите 2 число');       
     readln(b);      
     case c of            
         + : s:=a+b;           
          - : s:=a-b;           
         * : s:=a*b;           
          / : s:=a/b;       
     end;       
     writeln('ответ=',s);       
     repeat until keypressed;  
end.

program calc;  
uses crt;  
var
  a,s,b: integer;
  c: char;  
begin       
     writeln('введите 1 число');       
     readln(a);       
     writeln('введите знак действия');       
     readln(c);       
     writeln('введите 2 число');       
     readln(b);      
     case c of            
         '+' : s:=a+b;           
          '-' : s:=a-b;           
         '*' : s:=a*b;           
          '/' : s:=a div b;       //s - integer!
     end;       
     writeln('ответ=',s);       
     repeat until keypressed;  
end.

program calc; {кстати, program можно и не писать}
uses crt; {это нам для очищения экрана}
label 1;  {для перехода к началу}
var a,b:integer; {числа} c:char; {проверка повтора, знака счета}
s:real; {real, т.к присутствует деление} 
begin   
1: clrscr;    {очистка экрана}
     writeln('введите 1 число');       
     readln(a);       
     writeln('введите 2 число');       
     readln(b);      
     writeln('введите знак действия');       
     readln(c); 
     case c of {проверка введенного}           
         '+' : s:=a+b;           
          '-' : s:=a-b;           
         '*' : s:=a*b;           
          '/' : s:=a/b;       
     end;       
     writeln('ответ с точностью до двух цифр: ',s:4:2); 
     {:2 - кол-во цифр после запятой, используется для деления}       
     writeln ('хотите сосчитать еще раз? Y/N'); 
	 readln (c); 
	 if c='Y' then goto 1 {переходим к началу} else 
	 if c='N' then writeln ('для выхода нажмите любую клавишу...'); 
{просто продолжение}
readln; {ожидание пустого ввода}
end.