Интернет - угроза или прогресс науки? и почему. как инет влияет на общество, новые поколения и т.д.

Есть и хорошая сторона интернета! например: можно найти кучи полезной информации! позвонить на расстояние близким людям или

Инет это угроза,для людей в интернете можно найти плохое общество, например синий кит.из за этого общества погибают дети

Наверное имелось ввиду произведение его цифр, тогда может получиться так: 1. решение без циклов //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var n,x,p: integer; //n1-кол-во четных, n2-нечетных begin   read(n);   p: =1;     //получаем остаток от деления (единицы) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем единицы   n: =n div 10; //получаем остаток от деления (десятки) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем десятки   n: =n div 10; //получаем остаток от деления (сотни) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем сотни   n: =n div 10; //получаем остаток от деления (тысячи) и умножаем на него p   x: =n mod 10; p: =p*x; //отбрасываем тысячи   n: =n div 10; ///получаем остаток от деления (сотни тысяч) и умножаем на него p   x: =n mod 10; p: =p*x; // теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч   writeln('произведение цифр ',p); end. 2. решение с циклом //pascalabc.net (версия 3.1, сборка 1198 от 11.03.2016) var n,x,p: integer; begin   readln(n);   p: =1;   while n> 0 do  begin   x: =n mod 10; p: =p*x;   n: =n div 10;   end;   writeln('произведение цифр ',p); end.