Uses crt,graphABC;
var
x,y: integer;
procedure Go(n,m: integer);
begin
clearwindow;
setpenwidth(4);
setbrushcolor(clyellow);
rectangle(150,150,550,350);
setpenwidth(2);
setbrushcolor(clgreen);
rectangle(x-50,y-50,x+50,y+50);
x:=x+n;
y:=y+m;
sleep(1);
redraw;
end;
beginlockdrawing;
setwindowsize(700,500);
hidecursor;
repeat x:=150;
y:=150;
while x<=550 do Go (1,0);
while y<=350 do Go (0,1);
while x>=150 do Go (-1,0);
while y>=150 do Go (0,-1);
until keypressed;
<span>end.
Так сойдет? :)</span>
Var a, i: integer;
begin
readln(a);
for i:=2 to a do
if (a mod i = 0) and (i mod 2 = 0) then writeln(i);
end.
Ответ:
36910 - вези
Объяснение:
нет 36 буквы алфавита , нет 69 буквы алфавита , нет 91 буквы алфавита, нет 0 буквы алфавита
Переделайте фотографию, не видно то, что написано слева
распорядок дня:
1.пробуждение
2.одежда
3.личная гигиена
4.дорога в школу.
решение примера или задачи это тоже алгоритм.
алгоритмов много просто подумайте!
алгоритм-это четкая последовательность действий.