нужно найти сколько раз 1 цифра встречается в данном числ
program N1;
var m,n:longint;
k,i: integer;
Begin
readln (n);
m:=n;
k:=n mod 10;
writeln (' первая цифра числа ровна ',k);
i:=0;
begin
if m mod 10=k then inc(i);
m:=m div 10
end;
writeln ('первая цифра встречается ',i, 'раз');
end.
Нужно создать цикл и действия
begin
if m mod 10=k then inc(i);
m:=m div 10
end;
производить циклически.
До тех пор, пока m не станет меньше 10.
А на самом деле не получается потому, что слово "равна" надо было не через "о" писать :)))
ой ...не туда ...
А почему ты решил, что не получается?
Ну и цикл добавь, пока m>0, а то begin end есть, а цикла нет...
>k:=n mod 10;
>writeln (' первая цифра числа ровна ',k);
Не первая, а последняя.
А не получается, потому что алгоритм неправильный. Цикл-то где?
⇢