Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

!!!!!!!ТОЛЬКО ДЛЯ ЗНАЮЩИХ!!!!!!!!!
Составить программу, которая позволяет ввести два числа в первой строке, и один из знаков (+, -, *, /) во второй строке. На экран должен быть выведен результат выполнения соответствующего арифметического действия. Для ввода знака использовать вспомогательную переменную типа char.

Ответ оставил Гость

Var 
s: char; 
a, b: real;
begin 
Write(Введите два числа ); 
Readln(a, b); 
Write(Введите действие (+, -, *, /) - ); 
Readln(s); 
case s of    
+: writeln(a, + , b, = , a + b);   
-: writeln(a, - , b, = , a - b);   
*: writeln(a, * , b, = , a * b);   
/: if (b=0) then writeln(На ноль делить нехорошо - бесконечность получится) else writeln(a, / , b, = , a / b);
End;
end.