Ответы
Ответ дал:
1
Ответ:
uses crt;
var d:char;
a,b,s,c: real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Какое действие хотите выполнить? + - * / ');
readln(d);
case d of
'+': s := a + b;
'*': s := a * b;
'-': s := a - b;
'/': if s = 0 then begin writeln('Ошибка!') end else begin s := a / b end;
end;
writeln(s);
end.
Объяснение:
Приложения:
![](https://st.uroker.com/files/f8d/f8d890d89898626229fa9176ddaf8b94.png)
uxaisha586:
это Паскаль?
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад