Число 15
15=1111
число 58
58=111010
===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2('Введите N и k:');
var s := 0;
n := Abs(n); // в условии не сказано, что число всегда подожительное!
while n > 0 do
begin
var d := n mod 10;
if d > k then
s += d;
n := n div 10
end;
Print(s)
end.
Есть такжен более короткое решение:
begin
var (n, k) := ReadInteger2('Введите N и k:');
var a := Abs(n).ToString.ToCharArray.Select(c -> c.ToDigit).ToArray;
a.Where(p -> p > k).Sum.Println
end.
Формальные исполнители - не понимают смысла в выполняемых заданиях. Например, любое техническое устройство: стиральная машина, компьютер, робот.
Неформальные исполнители - понимают смысл выполняемых заданий, могут изменять способ выполнения заданий. например, учитель учит способу решения задачи, ученик может улучшить этот способ - предложить другой, короткий, упрощенный.
Var x,s:integer;
begin
s := 0;
read(x);
while x <> 0 do
begin
if (x mod 3 = 0) and (x mod 10 = 4)
then s := s + x;
read(x)
end;
write(s)
end.
Если есть интернет-есть выход в сайты-есть и файлы с этих сайтов