<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Вводите:');
for var i:=1 to s.Length do s[:i+1].Println;
Writeln;
for var i:=s.Length downto 1 do s[:i+1].Println;
end.
<u>Пример</u>
Вводите: слово
с
сл
сло
слов
слово
слово
слов
сло
сл
с
Ну , для начала ( если ты не сохранила ее) после изменения кнопку возврата нажать пару раз в левом верхнем углу. Если изменила то никак, ну только если кэш этой версии не сохранился в Temp или не сохранился на другом носителе информации.
<span>512 000*(4*60) = 122 880 000 бит
<span>122880000 / 8 / 1024 = 15 000 килобайт</span></span>
А какие числа то? Так то много можно написать