Question

Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная P после выполнения программы, если с клавиатуры введено число 10?

PROGRAM OL;

Var a;b;h:integer

BEGIN

WriteLn(‘Введите число’ );

ReadLn(a);

If a>=2 and a<=14

then

begin

b:=3;

p=a*a+b*b

end;

else b:=5;

p:=(a+b)*(a+b);

WriteLn(‘p=’p);

END

​

Answer 1

Ответ:

PROGRAM OL;

Var a,b,h:integer;

BEGIN

WriteLn(‘Введите число’ );

ReadLn(a);

If (a>=2) and (a<=14) then

begin

b:=3;

p=a*a+b*b

end;

else

begin

b:=5;

p:=(a+b)*(a+b)

end;

WriteLn(‘p=’p);

END.

Ответ: 109

Объяснение: