Регистрация
nikitka199821
09.09.2022 20:56
Информатика
Есть ответ 👍

Дано натуральное число. определить сколько раз в нём встречается младшая цифра,free pascal

193
499
Посмотреть ответы 2

Ответы на вопрос:

larionxam
larionxam
4,8(23 оценок)
Var   n,k,d,dmin: integer; begin   write('n='); readln(n);   dmin: =10;   while n> 0 do begin       d: =n mod 10;       if d< dmin then begin dmin: =d; k: =1 end       else if d=dmin then k: =k+1;       n: =n div 10       end;   writeln('минимальная цифра ',dmin,' встречается ',k,' раз(а)');   readln end.
Qwerty098765432111
Qwerty098765432111
4,4(100 оценок)
150*80=12000 в час 12000*7=84000 всего если на одной странице 150 слов то : 84000: 150=560 ответ: 560

Популярно: Информатика