Question

Нужна помощь.
А. Напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю.

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

Answer 1

Задание А

Прикрепил в файле исходный код программы

Задание B

Прикрепил файл с исправленной программой, в которой присутствуют пометки, объясняющие ошибки. Ответ на второй вопрос:

При a = 10 переменная p примет значение 169.

c2477e977ac356bdbc8662007d778c9c.pas

ec151f78df77191150f6405a539bba32.pas

Answer 2

и снова, спасибо♥♥♥♥