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

i++ тоже что и i= i +1 если такого нет в паскале, я уже не помню

Вот для разрядности есть 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 ch<b do               b:=b div 10;          c:=true;          while b>0 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<sqrt(n); i++) {    if (n % i == 0) {        // вывести, что n  не простое, так как делится на i        return 0;    }}// вывесьт что n простое.return 0;