Напишите программу на паскаль. дано число n меньше или равно 30 000. изменяя число i от 1 до n будем записывать получившееся число подряд без пробелов, и получим некое число. подсчитать в этом числе количество нулей, единиц, двоек до девяток. подсчитать общее количество цифр в этом числе.

Program test; var i,n,schet: integer; s: string; begin readln(n); for i: =1 to n do s: =s+inttostr(n); schet: =length(s); writeln(schet); end.

1)  количество возможных комбинаций это кол во символов в алфавите в степени числа букв в слове  -  при 2-х символах количество возможных слов равно 2^3=8 < 12 это нам не подходит  при 3-х символах количество возможных слов равно 3^3=27 > 12 2)тут  все  чуть  сложнее,  нехватку условий  дополню  сам.  смысл  такой  -  рас  утверждение  говорит  нам  о  клетке а  и  несет  4  бита  значит  именно  16  тигров  находится  в  этом  вальере(2 в 4степени)  следовательно  самый  простой  способ  определения, при  том  условии  что  именно  на  этих  условия  шло  сообщение  о  тигре  альбиносе, это  бональное  вычитание  64-16=48.  но  повторюсь  еще  раз,  как  по  мне  так условий  явно  нехватает

1) автомобили определенного производителя:           имя для обозначения: car         нумерация: по году выпуска          тип: строковый

алг  автомобили

строк  таб car[2000: 2018] 

цел  i

нач

для i  от  2000  до  2018  шаг  1  повторять 

нц

          вывод (i, "-") 

          ввод (car[i]) 

кц 

кон

2) оценка с предмета:         имя для обозначения:   grade          нумерация:   по дате получения            тип:   целый (строковый)

алг  оценки с предмета

цел  таб grade[1: 30] 

цел  i

нач

        i: =1

          пока  i< =30,  повторять 

          нц

                    вывод (i," число- ") 

                    ввод (grade[i]) 

                    i: =i+1 

кц 

кон