Дано целое число N.Выяснить,сколько раз в этом числе встречается его минимальная цифра. pascal пожалуйста
Дано целое число 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.
Гостьvar a,b,c,k,kol:
integer;
begin
writeln ('введите число');
readln(a);
kol:=1;
c:=10;
while (a<>0) do begin
b:=a mod
10;
if (b ',c);
writeln('в этом числе этих цыфр ==> ',kol);
end.
Не нашли ответ?
Похожие вопросы