Знайдемо сторони прямокутника, периметр якого 20 см, одна зі сторін більша іншу на 4 см. Позначимо сторони змінними а і b. Тоді b = а + 4, а периметр: 2•(а + b) = 2•(2а + 4). Зрозуміло, що значення а може бути більшим за 0, але меншим від 10 (половини периметра).
У циклі переберемо значення а зі вказаного діапазону.
Отримаємо значення а, при якому 2•(2а + 4) = 20:
for a in range(10):
if 2*(2*a+4) == 20:
print(«а =», а, «b =», а+4)
Якщо потрібно знайти дві або більше невідомі величини методом перебору, використовується вкладення циклів.

Итак. Мы имеем строку из 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

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.
Только в университет работу нужно сдавать именно в паскале.