Паскаль

[КоТэ LOvE YoU]

ураа))) а вот ещё пацаны Дано натуральное число n(n>9) найти число единиц в нём

[_-Re@l-_]

Uses CRT;
var N:integer;
     m:integer;
begin
       Clrscr;
       readln(n);
       m:=n mod 10;
       write(m);
       readln;
end.

Ты так обрадовался от новой задачи?
нажми на весы и нажми "добавить отзыв"

[DoDge_VipeR]

ну и мой вариант для числа 1112121 выдаст 5)

Uses CRT;
var N:integer;
     m:integer;
c:integer;
begin
       Clrscr;
 c:=0;
       readln(n);
    while n<>0 do begin   
     if n mod 10=1 then c:=c+1;
      n:=n div 10; end;
       write(c);
       readln;
end.

[ROMA2PVT]

КоТэ LOvE YoU вам остаётся только условие добавить n>9.