ДИАГОНАЛЬ ПРЯМОУГОЛЬНИКА НА ДЖАВА! Дан прямоугольник со сторонами A и B. Требуется вычислить квадрат диагонали прямоугольника.
Входные данные: 4 8
Выходные данные: 80

1 2 3 4 5 6 7 program proba; uses crt, graph; var begin write('hello'); readln; end.при alt+F5
выводит черный экран, и ждет нажатия любой клавиши.
Как будто readln работает а writeln нет.
Сначало пробовала TP7, потом попробовала BP7, ситуация и там и там одинаковая.
Раньше, где-то пол года назад все работало.
А сейчас просто черный экран.

И программы написанные раньше также
 не работают, черный экран и все.
Может кто сталкивался с подобным.
На компе также установлен, delphi3, и delphi7.
Только в университет работу нужно сдавать именно в паскале.

Итак. Мы имеем строку из 72 пятерок.

Сначала все пятерки заменяются на тройки (приоритетным действием у нас является замена первого вхождение трех идущих подряд пятерок тройками, а т.к. 72 кратно трем, то преобразованная строка будет состоять только из троек). После этого у нас остается строка, состоящая из 24 троек.

555 555 555 555 ... 555 => 333 333 333 333 333 333 333 333

Затем происходят такие действия: три последовательно идущие тройки заменяются на пятерки, а после того как таких пятерок будет три, они заменятся на одну тройку. Следственно 9 троек заменяются на одну. После проведение данных действий у нас остается 24-9+1-9+1=16-9+1=8 троек.

333 333 333 333 333 333 333 333

555 333 333 333 333 333

333 333 333 333 333 3

555 333 333 3

333 333 33

Так как мы уже не можем получить заменой троек хотя бы три пятерки, то первые вхождения трех подряд идущих троек заменяются пятерками.

333 333 33

5 333 33

5533

ответ: 5533