Перепишите следующую программу без ошибок и определите, - вопрос №1766549 от dan40s 24.06.2021 07:04

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​

dan40s · Answer

PROGRAM OL;Var a,b,h:integer;BEGINWriteLn(‘Введите число’ );ReadLn(a);If (a =2) and (a =14) thenbeginb:=3;p=a*a+b*bend;else beginb:=5;p:=(a+b)*(a+b)end;WriteLn(‘p=’p);END.ответ: 109Объяснение:...