Помогите решить: дано натур число,определить,какая цифра встречается в нем чаще:0 или 9?(через string)
Var m, z, n, l, i: integer;
s: string;
begin
readln (m);
str (m, s);
l := length (s);
z := 0;
n := 0;
for i := 1 to l do
if s[i] = 0 then inc(z) else if s[i] = 9 then inc(n);
if z < n then write(Цифра 9 встречается чаще цифры 0) else
if z > n then write(Цифра 0 встречается чаще цифры 9) else
if (z = 0) and (n = 0) then write(Цифры 0 и 9 не присутствуют в данном числе);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
