Question

Найдите все трехзначные числа, сумма цифр которых кратна 7
и сами числа также делятся на 7.

Answer 1

var i,a,s:integer;
begin
for i:=100 to 999 do begin
s:=0;
a:=i;
while a<>0 do begin
s+=a mod 10;
a:=a div 10;
end;
if (s mod 7 = 0) and (i mod 7 = 0) then writeln(i);
end;
end.

Answer 2

И у тебя программка проверяет, чтоб сумма цифр была равна 7, а не кратна.

Answer 3

я уже прочитал условие еще раз и поменял решение. в ABC.net есть +=

Answer 4

Ну а тогда какой долбоёб придумал такую модификацию? Это что, C-подобный язык, что ли?