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