Информатика 7 босова стр 185-186 нужно скопировать весь текст выручайте​

1. есть число n.  пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) =================================== ======== вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], ==================== добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)

Номер кратен 5 - это строки номер 5, 10, 15 и 20, т.е. от 5 с шагом 5. // pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (m,n): =(20,10);   writeln('*** исходный массив ***');   var e: =matrrandom(m,n,1,99);   e.println(3); writeln(3*e.colcount*'-');   var p: =biginteger(1);   foreach var i in range(4,m-1,5) do       p: =e.row(i).where(t-> t> 4).aggregate(p,(x,y)-> x*y);   println('произведение равно',p) end.