/////////////////<u>Pascal abc</u>/////////////////
Программа во вложении
Парой выстрелов в 8 и 10 можно выбить 18 36 54 72 очка, при этом в сумме с пятеркой на конце должно получится девять.
Подходит только 54 - по три выстрела в 8 и 10 плюс 9 выстрелов в пятерку. Плюс 5 выстрелов в молоко - всего 20 выстрелов.
Это цикл, так как временя года следуют в определенном порядке
Var
n,k,s,d:longint;
begin
Write('Введите натуральное число: ); Readln(n);
s:=0; k:=0;
while n<>0 do begin
d:=n mod 10;
Inc(k);
s:=s+d;
n:=n div 10
end;
Writeln('Количество цифр равно ',k,', сумма цифр равна ',s)
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 157832
Количество цифр равно 6, сумма цифр равна 26