Pascal ABC

+ 0 -

Boryasharipov

26 апр. 2014 г., 8:14:13 (10 лет назад)

Вот для разрядности есть 
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. даже паскаль старый сохранился

+ 0 -

Dawa31

26 апр. 2014 г., 11:10:34 (10 лет назад)

Не думаю

+ 0 -

Aka47132

26 апр. 2014 г., 12:48:20 (10 лет назад)

Ну тогда не смогу помочь никак, сори, но паскаль уже не помню

+ 0 -

Kityun8008

26 апр. 2014 г., 15:28:40 (10 лет назад)

Ну попробуй на C++ попробую разобраться

+ 0 -

Marya28

26 апр. 2014 г., 16:28:11 (10 лет назад)

работает прога для разрядности ?

+ 0 -

Tysik0103

26 апр. 2014 г., 17:17:07 (10 лет назад)

Да, спасибо