Malanara
6 год назад
Пожалуйста посчитайте пж, не была на теме (в Паскале)Задание 9. Написать программу.
ОТВЕТЫ
Pavel
Oct 24, 2020
Program mr_zerkalka;
uses crt;
var b,a,x:real;
begin
read(a,b);
if a>b then
x:=b*a+1;
if a=b then
x:=-10;
if a<b then
x:=(a-5)/b;
writeln('x=',x:8:2);
end.
uses crt;
var b,a,x:real;
begin
read(a,b);
if a>b then
x:=b*a+1;
if a=b then
x:=-10;
if a<b then
x:=(a-5)/b;
writeln('x=',x:8:2);
end.
804
Смежные вопросы:
