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

Объяснение: