Question

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

fa0115a8e0784430f134fcd2f7ba7dd0.doc

Answer 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;

Answer 2

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