Ввести 10-значное число. определить максимальную цифру в записи числа и его количество вхождений в записи числа (например, в числе 44024 максимальная цифра 4 и количество его вхождений равно 3).

124

438

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

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

bilkosha2005

Информатика

4,7(12 оценок)

ответ: program сам придумай название;

var a,b,c,d,k: integer;

begin

readln(a);

b: =0;

c: =0;

d: =0;

k: =1;

for b: =0 to 10 do

begin

c: =a mod 10;

if (c< > 0) then

if (c> d) then

d: =c else

if (c=d) then

k: =k+1;

a: =a div 10;

end;

writeln (d,' ',k);

end.

nagornayka69

Информатика

4,4(44 оценок)

Решение на pascal var tenge,bilet: integer; begin tenge: =1000; readln(bilet); if bilet=tenge then writeln(' вы можете купить билет'); if bilet> tenge then writeln(' вам придется смотреть фильм в следующий раз'); if bilet< tenge then writeln(' вы можете купить напиток и билет'); end.