Перепишите программу без ошибок и укажите, какое значение будет у переменной p после выполнения программы, если

Перепишите программу без ошибок и укажите, какое значение будет у переменной 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
begin
b := 5;
p := (a + b) * (a + b);
end;
writeln("p = ", p);
end
Tainstvennyy_Leprekon

Tainstvennyy_Leprekon

Будьте так любезны, предоставьте мне код программы, чтобы я мог полностью понять ситуацию и дать детальный ответ.
Знаешь ответ?
Задать вопрос
Привет!
hello