Ответ: program chik;var i,a,b,c:integer;beginfor i:=100 to 999 dobegina:=i div 100;b:=(i div 10)mod 10;c:=i mod 10;if(i mod 20=0)and(a+b+c=i div 20)then writeln(i);end;end.ответ 180 т.к 180 делится на 20сумма цыфр 180 равно 1+8+0=9180/20=99=9
Ответ: var i,s1,s2:integer;begin i:=100; repeat s1:=(i div 100)+((i mod 100) div 10)+(i mod 10); s2:=i div 20; s2:=(s2 div 10)+(s2 mod 10); if s1=s2 then Writeln(i); i:=i+20; until i>999end.Результат выполнения программы:180360540720900