** языке Pascal написать программу Дано натуральное число. Определить, сколько раз в нём...

Question

На языке Pascal написать программу
Дано натуральное число. Определить, сколько раз в нём встречается первая цифра.
Задание выполнять с оператором while/
Помогите, пожалуйста

Answer 1

Program prog;
Uses Crt;

var n,a,x,k:integer;
begin
clrscr;

write('Введите число n = ');
readln(n);
x:=n;

while (x>0) do begin
    a:=x mod 10;
    x:=x div 10;
    end;

while (n>0) do  begin
if  (n mod 10) = a then
k:=k+1;
n:=n div 10;
end;
writeln('Цифра ',a, ' встречается ', k, ' раз(а)');

end.

Comments

спасибо огромное)