Дано трехзначное число. найти число единиц в нем, число десятков в нем, число сотен в нем, сумму его цифр, произведение его цифр

Var unitscount,       tenscount,       hundredscount,       number : integer; begin readln(number); unitscount : = number mod 10; tenscount : = (number div 10) mod 10; hundredscount : = number div 100; writeln('count of units: ', unitscount); writeln('count of tens: ', tenscount); writeln('count of hundreds: ', hundredscount); writeln('sum of digits: ', unitscount + tenscount + hundredscount); writeln('multiplication of digits: ', unitscount * tenscount * hundredscount); end.

Не сказано, как хранятся данные. допустим f[1..15] - фамилия, r[1..15] - рост readln(newr); for i: =1 to 15 do   if r[i]< newr then writeln(f[i]); ручной ввод: var   i,newr: integer;   f: array[1..15]of string;   r: array[1..15]of integer; begin writeln('введите фамилии и рост (в см) по убыванию'); for i: =1 to 15 do   begin   write('фамилия: ');   readln(f[i]);   write('рост (в см): ');   readln(r[i]);   end; writeln('введите рост (в см) нового уч-ка, не ни с кем'); readln(newr); for i: =1 to 15 do  if r[i]< newr then writeln(f[i]); end.

#include  < iostream> #include < cstdio> #include < cmath> int  main() { //объявление переменных, освобождение памяти под динам.массив int i=0,n=0,c=0,max=0,k=0; double p=1.0; cin> > n,c; double *massop = new  double [n]; double *mass = new double[n]; //узнаём числа> c, а заодно и значение  максимума по модулюfor (  i = 0; i < n; i++) { cin> > massop[i]; if (massop[i]> c) k++; if (fabs(massop[i])> max||fabs(massop[i])=max) max=fabs(massop[i]); } cout< < k< < '"  элементов больше с"< < endl; //находим первый максимальный эл-т //больше с  не нужно, возьму под другие нужды for (i  =  0; i< n; i++) { if (fabs(massop[i])=max) break; } c=i; //начиная с этого элемента находим произведение последующих for (i  = c; i< n; i++) { p=p*massop[i]; } cout< < "произведение чисел  после максимального по модулю элемента:   "< < p< < endl; //и снова с на левые цели c=0; //заполняем начало массива mass отрицательными элементами из massop for (i=0; i< n; i++) { if  (massop[i]< 0) mass[c]=massop[i]; c++; } //а конец-положительными for (i=0; i< n; i++) { if  (massop[i]> 0||massop[i]=0) mass[c]=massop[i]; c++; } //выведем, что вышло после упорядочивания for (i=0; i< n; i++) { cout< < mass[i]< < '/n'; } } /*вот и всё, коллега-сишник : d*/