АС
Александр Смирнов
Напишите, пожалуйста, задачку на паскале?
Сделать программу, которая определяет сколько раз первая цифра натурального числа встречается в нем?
Сделать программу, которая определяет сколько раз первая цифра натурального числа встречается в нем?
var
a: array [0..9] of integer;
n, f: longint;
begin
write('n? ');
readln(n);
repeat
f := n mod 10;
inc(a[f]);
n := n div 10;
until n = 0;
writeln('result: first digit ''', f, ''' used ', a[f], ' times');
end.