25 чисел перевести в десятичную дробь 100, 1000, 1001, 1000, 1011, 110, 1111, 10, 10, 100, 10011, 1010, 11, 1010, 100, 111, 100, 111, 110, 101, 1001, 111, 1001, 111, 1000, 10, 1000, 10, 1001, 11, 1001, 11, 110, 100, 101

4,8,9,8,11,615,2,2,4,19,10,3,10

1) var n,z: integer; begin z: =0; //z=: 0 знак присваивания выглядит вот так ": =" //n=: 100 - не нужно иницилизировать параметр цикла. for n: = 200 to 500 do begin //for n: =100 to 1000 do begin - цикл должен идти от 200 до 500, а не со 100 до 1000 if n mod 14 = 0 then //if (n div 14 =0) then - div - целая часть от деления, а mod - остаток. z: =z+1; //writeln(n); - выводить n не нужно совсем, а вот увеличить счетчик не помешает //z: =z+1; - а вот тут уже лишнее end; writeln(z); end. 2) -73, выполнится  15 - 8 + 1 =  8 раз

Type   digits=array[0..9] of byte; procedure rd(n: integer; var ad: digits; var f: boolean); { заполняет массив количеством повторений цифр числа n   f=true, если хоть одна цифра повторяется } var   i,d: byte; begin   for i: =0 to 9 do ad[i]: =0;   f: =false;   while n> 0 do begin       d: =n mod 10;       ad[d]: =ad[d]+1;       if ad[d]> 1 then f: =true;       n: =n div 10       end; end; var   i,j,n,k: integer;   a: digits;   f: boolean;   begin   for i: =1 to 2 do begin       write('n = '); read(n);       n: =abs(n); { против ввода отрицательных }       rd(n,a,f);       if f then begin           write('встречаются больше одного раза цифры ');           for j: =0 to 9 do               if a[j]> 1 then write(j,' ');           writeln           end       else writeln('все цифры в числе уникальны')       end end. пример n = 153632 встречаются больше одного раза цифры 3 n = 1030041 встречаются больше одного раза цифры 0 1 var   s,sr: string;   c: char;   i,j,n,p: byte;       begin   for i: =1 to 2 do begin       write('введите строку: '); readln(s);       n: =length(s);       sr: ='';       for j: =1 to n do begin           c: =s[j];           if pos(c,copy(s,j+1,n-j))> 0 then sr: =sr+c+' ';           end;       if length(sr)> 0 then writeln('встречаются больше одного раза символы ',sr)       else writeln('все символы в строке уникальны')       end end. пример введите строку: информатика встречаются больше одного раза символы и а введите строку: проблема все символы в строке уникальны