Var i,n,sum,j:integer; m:string;beginfor i:=10000 to 99999 do beginm :=inttostr(i);for j:=1 to 5 dosum:= sum + strtoint(m[j]);if sum = 7 thenwrite(i:6);sum:=0;end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
