Рассматривается множество целых чисел, принадлежащих числовому отрезку [2848; 109499], которые имеют в своей записи цифру 9, и у которых сумма
цифр больших 5 – кратна трём. Найдите количество таких чисел и наибольшее
такое число, начинающееся на 8. В ответе запишите два целых числа: сначала
количество, затем наибольшее такое число, начинающееся на 8.
Решите
program m1;
var a,b,c,:integer;
help:string;
begin
b:=0;
for var i:=2848 to 109499 do
begin
str(i,help);
if pos('9',help)<>0 then
begin
c := 0;
a:=i;
while a > 0 do
begin
if a mod 10 > 5 then
begin
c := c + a mod 10;
end;
a := a div 10;
end;
if c mod 3 = 0 then
begin
b:=b+1;
if pos('8',help)=1 then
begin
writeln(i);
end;
end;
end;
end;
writeln(b);
end.
Объяснение:
20865 89997