an align="justify">? ëü ? î ? )
? ГЁ?? ГЁ ?? ГЇ? ГЋ ?? Г ??
var
a: array [1 .. 120] of integer;: integer;: integer; dsum (i: integer): integer; sum: integer;: = 0; (i <> 0) do: = sum + (i mod 10);: = i div 10;;: = sum;;: = 0;: = 1; count <> 120 do (dsum (i) mod 10 = 0) then (count) ; [count]: = i; (a [count]: 6); (count mod 12 = 0) then writeln;; (i);;;.
?? èëî ??? è ? ?
(î ?? çà ? ? ëü ? î ? )
? ГЁ?? ГЁ ?? ГЇ? ГЋ ?? Г ??
uses Graph, Crt;
var
dx, dy: integer;
angle, posx, posy: integer;
maxx, maxy: integer;
ainc: integer;
3) or (k + kinc <1) then kinc: = -1 * kinc;: = k + kinc; ((posx + xinc +20 * k> = maxx ) or (posx + xinc-20 * k <= 0)) then xinc: = -1 * xinc; ((posy + yinc +20 * k> = maxy) or (posy + yinc-20 * k <= 0) ) then yinc: = -1 * yinc;: = posx + xinc;: = posy + yinc; (posx, posy, angle, k); (250); (KeyPressed);;.
? Г Г§ ?? Г№ < span align = "justify">?? Г® ? Г Allbest. ru
