Question

Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная P после выполнения программы, если с клавиатуры введено число 10? PROGRAM OL;Var a;b;h:integerBEGINWriteLn(‘Введите число’ );ReadLn(a);If a>=2 and a<=14thenbeginb:=3;p=a*a+b*bend;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

Объяснение: