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

1
Не думаю
Ну тогда не смогу помочь никак, сори, но паскаль уже не помню
Ну попробуй на C++ попробую разобраться
работает прога для разрядности ?
Да, спасибо

Ответы и объяснения

2014-02-05T18:17:30+00:00
Вот для разрядности есть 
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;
второй код уже сишный но суть написана
i++ тоже что и i= i +1 если такого нет в паскале, я уже не помню