Образовательный портал

Pascal ABC Решить три задачи ……………………………………………………………………………………………………………………………………………………………………………………………….( в файле ) 

• Вот для разрядности есть program c5;uses crt;var a,b,d:integer;    ch,chtmp,ch_e,ch_h:integer;    col,z,k,u:integer;    c:boolean;begin     clrscr;     write(‘Vvedite chislo (0-32768):’);     readln(ch);     chtmp:=ch;     col:=0;     for a:=0 to 9 do     begin          ch:=chtmp;          ch_h:=0;          ch_e:=0;          b:=1;          b:=10000;          while ch0 do          begin               d:= (ch-ch_h) div b;               ch_e:=ch — ch div b*b;               if a=d then               begin                   ch:=ch_h div 10 + ch_e;                   inc(col);                   break;               end               else                   ch_h:=ch div b * b;               b:=b div 10;          end;     end;     writeln(col);

  end. даже паскаль старый сохранился
  

  Для простых чисел 

  int n;
  // ввести n c клавиатуры

  for (i = 2; i