Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная 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
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
Объяснение: