Сережа-Антонов
Николай-Васильев
Петр-Борисов
Олег -Дроздов
Леонид-Иванов
<span>Индекс последнего отрицательного элемента массива.
Ответ: 5</span>
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
1)Ввод с клавиатуры чисел a, b, l
2)расчёт по формуле:
Длинна шнурка = (7*a)+(2*l)+(6*b)