каждний пассажир ждал поезд 2 часа
Function tet2n(n As Integer) As Integer
Dim i As Integer
i = 8
Do While i * (i + 1) * (i + 2) / 6 > n
i = i - 1
Loop
tet2n = i
End Function
Excel VBA
Хорошая задача . я подумаю и скажу тебе ответ .
Вы не указали конкретно, что нужно сделать. Ну, если нужно написать программу в Pascal, то она ниже. Либо напишите нормально что Вам нужно.
Begin
Writeln('На запад от Москвы природа подмосковного края.');
End.
Эта папка называется КОТАЛОГ