Помогите пожалуйста решить!! Можно подробно пожалуйста
Ответы
Сделал подробно. Двумя способами решениями. Через оператора if и else (Вам нужен только if, else для ознакомления)
--
IF
--
2)
Program ypriz;
var a,b,cc: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
Writeln('Значение a, b: ',a);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
a:=10*a;
b:=10*b;
if a+b < 0 then
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.
--
ELSE
--
2)
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10;
if z > 5 then
y:=z-10;
Writeln('Значение y: ',y);
END.
или
Program ypriz;
var x,y,z: real;
BEGIN
z:=5;
if z < 5 then
y:=z+10
else
y:=z-10;
Writeln('Значение y: ',y);
END.
3)
Program asoft;
var a,b,c: real;
BEGIN
a:=2;
b:=-3;
if a+b > 0 then
begin
a:=10*a;
b:=10*b
end
else
c:=a;
a:=a+b;
b:=c*b;
writeln ('Значение a, b:',a,' ',b);
END.