Пользователь работал с каталогом с : \ \ сначала он поднялся на один уровень вверх потом спустился в каталог экзамен и после этого спустился в каталог кинематика укажите полный путь того каталога в котором оказался пользователь

266

488

Посмотреть ответы 1

Ответы на вопрос:

Алина678901

Информатика

4,8(78 оценок)

Пункт а: насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. например если вы введете число из 9001 символа, программа будет работать неккоректно. для выхода из цикла используется 'метка'. a, counter, summa : integer; label transfer; begin writeln('введите число'); readln(a); counter : = 1; countertw0 : = countertwo + 1; while counter < 9000 do begin counter : = counter +1; if (a div counter) < 0 then transfer else countertwo : = countertwo + 1; else; goto transfer; //узнали, что в числе countertwo символов while counter < countertwo do summa : = summa + ((a div counter) mod 10); summa : = summa + (a mod 10); writeln(summa); end.