11. Что будет напечатано в результате выполнения следующей программы, если значение равно R = -16?
Program n_1;
var R,y: real;
begin
readln (R);
if R>0 then y:=R*5+1;
if R=0 then y:=R+8/2;
if R<0 then y:=R*R/4 +10;
writeln (‘R=’,R);
end.
РЕШИТЕ ПЖ ДАЮ 15 БАЛЛОВ, СРОЧНО ИЛИ УЧИЛКА ПОСТАВИТ 2
Program n_1;
var R,y: real;
begin
readln (R);
if R>0 then y:=R*5+1;
if R=0 then y:=R+8/2;
if R<0 then y:=R*R/4 +10;
writeln (‘R=’,R);
end.
РЕШИТЕ ПЖ ДАЮ 15 БАЛЛОВ, СРОЧНО ИЛИ УЧИЛКА ПОСТАВИТ 2
More Questions From This User See All
Answers & Comments
Ответ:
R=-16
Объяснение:
readln (R); => -16
R<0 => y:=R*R/4 +10 = -16* -16/4 + 10 = 74
writeln (‘R=’,R); => R=-16
Странно что программа выводит R, может там ошибка и должен выводится y?