Найти в Дзене
2 подписчика

Небольшой код для паскаль калькулятора в командной строке


 program calcus;

   uses crt;

 var a,b,c:integer;

   d:string;

 begin

   write('1 Число = ');

   readln(a);

   writeln('Что делаем + ,-,*,/. ');

   readln(d);

   write('2 Число = ');

   readln(c);

   if d=('+') then b:=a+c;

   if d=('-') then b:=a-c;

   if d=('*') then b:=a*c;

   if d=('/') then b:=a div c;

   writeln('Ответ: ', b);

 end.
Около минуты