Помогите,решить задачи в Паскале,10 класс,программисты,или кто шарит в этом:),знаю легко,но мозгов не хватает вообще...

Помогите,решить задачи в Паскале,10 класс,программисты,или кто шарит в этом:),знаю легко,но мозгов не хватает вообще...
Гость
Ответ(ы) на вопрос:
Гость
var i, k,a1,a2,a3,b1,b2,b3: integer; k:=0; for i:=100000 to 999999 do begin a1:=i mod 100000; a2:=i/10 mod 10000  ; a3:=i/100 mod 1000; b1:=i/1000 mod 100; b2:=i/10000 mod 10; b3:=i/100000 mod 1; if ((a1+a2+a3=13) and (b1+b2+b3=13)) k:= k+1;
Не нашли ответ?
Ответить на вопрос
Похожие вопросы