Angel001111
Не знаю правельно или нет Program Calculator; var a,c: real; b: char; begin write('Введите первое число : '); readln(a); write('Введите действия с числами : '); readln(b); write('Введите второе число : '); readln(c); case b of '+':a:=a+c; '-':a:=a-c; '/':a:=a/c; '*':a:=a*c; else write('Вы вели не правельное действие!!!') end; write('Результат : ',a:6:2 ) end.
Answers & Comments
Program Calculator;
var
a,c: real;
b: char;
begin
write('Введите первое число : ');
readln(a);
write('Введите действия с числами : ');
readln(b);
write('Введите второе число : ');
readln(c);
case b of
'+':a:=a+c;
'-':a:=a-c;
'/':a:=a/c;
'*':a:=a*c;
else
write('Вы вели не правельное действие!!!')
end;
write('Результат : ',a:6:2 )
end.