//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var zarazheno := 1;
var sum := zarazheno;
for var i := 1 to 4 do
begin
zarazheno *= 10;
sum += zarazheno;
WritelnFormat('{2} Новозараженно = {0}, всего заражено = {1}', zarazheno, sum, i);
end;
end.
Вывод
1 Новозараженно = 10, всего заражено = 11
2 Новозараженно = 100, всего заражено = 111
3 Новозараженно = 1000, всего заражено = 1111
4 Новозараженно = 10000, всего заражено = 11111
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число
var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.