Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.