Дано целое число N.Выяснить,сколько раз в этом числе встречается его минимальная цифра. pascal пожалуйста
Var s: string;
ch: char;
i: integer;
begin
write(строка: );
readln(s);
foreach ch in s.Sorted do
if ch = s.Sorted.First then i:=i+1;
writeln(цифра = ,s.Sorted.First, ,i, раз(а) );
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
