Нужна помощь. А. Напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю. В. Перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная 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
Прикрепил в файле исходный код программы
Прикрепил файл с исправленной программой, в которой присутствуют пометки, объясняющие ошибки. Ответ на второй вопрос:
При a = 10 переменная p примет значение 169.
и снова, спасибо♥♥♥♥