Задача в ПАСКАЛЕ

[Diman]

Задача в ПАСКАЛЕ

Периметр прямоугольника равен р одна из сторон а.найти площадь.

 

[Vladimir_S]

Периметр прямоугольника равен р одна из сторон а.найти площадь.

Приколы продолжаются... Ну-ну...

VAR a,p:REAL;
BEGIN
Write('p = '); Readln(p);
Write('a = '); Readln(a);
WriteLn('S = ', a*(p-a*2)/2);
ReadLn;
END.

 

[AlexZir]

Vladimir_S
Вы скобки, случаем, не пропустили? По-моему, правильнее будет так:
Writeln('S=',a*((p-a*2)/2));

 

[Vladimir_S]

Vladimir_S
Вы скобки, случаем, не пропустили? По-моему, правильнее будет так:
Writeln('S=',a*((p-a*2)/2));

Алекс, но они же ровно ничего не меняют!

 

[AlexZir]

Наш спор - о способе формализации, в принципе, правильно и по-вашему, и по-моему. Я допустил ошибку при сокращении дроби . Топик подчищаю.