ПАСКАЛЬ. Составить программу нахождения произведения цифр целого числа.

program comp;

var

 number, composition, last_number: integer;

begin

 composition := 1;

 read(number);

 while (number > 0) do

 begin

   last_number := number mod 10;

   composition := composition * last_number;

   number := number div 10;

 end;

 write(composition);

end.

Объяснение:

program comp;  // Название программы

var

 number, composition, last_number: integer;  // Создание целочисланных переменных:

number - число, которое вводится с клавиатуры;composition - переменная для хранения произведения цифр числа;last_number - переменная, которая будет хранить цифры числа.

begin  // Начало программы

 composition := 1;  // Переменной composition присваиваем значение 1

 read(number);  // Считываем число с клавиатуры

 while (number > 0) do  // Пока переменная number > 0 выполняем

 begin  // Начало цикла

   last_number := number mod 10;  // Берем последнюю цифру от числа (остаток от деления на 10)

   composition := composition * last_number;  // В переменную composition записываем произведение переменной composition и переменной last_number

   number := number div 10;  // Отделяем последнюю цифру от числа (целочисленное деление на 10)

 end;  // Конец цикла

 write(composition);  // Вывод значения переменной composition

end. // Конец программы

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.     

Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.