<span>Как то так, можешь заменить так что бы ракета вверх двигалась. Program raketa; uses graphabc; var i:integer; begin For i:=1 to 300 do begin line (i+300,60,i+240,120); line (i+240,120,i+240,360); line (i+360,120,i+360,360); line (i+240,360,i+360,360); line (i+300,60,i+360,120); line (i+240,210,i+210,240); line (i+210,240,i+240,240); line (i+360,210,i+390,240); line (i+390,240,i+360,240); circle (i+300,150,15); circle (i+300,210,15); circle (i+300,270,15); line (i+240,360,i+180,450); line (i+180,450,i+420,450); line (i+420,450,i+360,360); line (i+330,450,i+330,370); line (i+300,450,i+300,365); line (i+270,450,i+270,370); ClearWindow; end; end.</span><span> end. </span>
Var n,k,sum,i:integer; begin readln (n); if (n<10)and(n>-10) then for i:=1 to 10 do begin if n mod i=0 then sum:=sum+i; k:=k+1; end; writeln(sum, ' ', k); end.
Упрощенное обнаружение документов, содержащих макросы. Файлы, сохраненные с использованием стандартного суффикса «X» (такие как DOCX, XLSX и PPTX), не могут содержать макросы VBA и XLM. Макросы могут содержать только те файлы, расширение имени которых заканчивается на «M» (такие как DOCM, XLSM и PPTM). Проще говоря: <span> Суффикс «X» означает, что XML-файл не содержит макросов, а суффикс «M» — что XML-файл содержит макросы. </span>