Question

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

Answer 1

Ответ:

R=-16

Объяснение:

readln (R); => -16

R<0 => y:=R*R/4 +10 = -16* -16/4 + 10 = 74

writeln (‘R=’,R); => R=-16

Странно что программа выводит R, может там ошибка и должен выводится y?