Var i,n,m,sum,k:integer; sr:real;b:array[1..3] of integer;beginfor m:=100 to 999 do beginn:= m;repeat begini:= i +1;b[i]:= n mod 10;n:= n div 10;end;until n = 0;k:=b[2];sum:= b[1] + b[3];sr:= k mod sum;if sr = 0 then beginwrite(m:4);end;i:=0;end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
