Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
по углам комнаты расставить 4 стула и около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )
program nn;
uses crt;
var a: array [1..20] of real;
t: real;
i,n,min: integer;
begin
{ввод последовательности, это самостоятельно}
min : = 1;
for i : = 1 to 20 do
if a[i] < a[min] then
min : = i;
end;
t : = a[min];
a[min] : = a[20-n];
a[20-n] : = t;
end.
uses graph; {подключен модуль graph}var x,y,h: integer; procedure grinit; {процедура инициализации режима графики}var graphdriver: integer; {для графического адаптера} graphmode : integer; {для графического режима} errorcode : integer; {для кода ошибки}begin graphdriver : =detect; {режим автоопределения} initgraph(graphdriver ,graphmode,''); {инициализация} errorcode : =graphresult; {результат инициализации} if errorcode < > grok then {если не успешно,} begin writeln('ошибка графики: ',grapherrormsg(errorcode )); writeln('программа остановлена.'); halt(1) end {if}end; begin grinit; {вызов инициализации} x: =getmaxx div 2; y: =getmaxy div 2; h: = 30; {кол-во шагов до финиша} while x+y> 0 do begin cleardevice; circle(x, y, 10); delay(100); x: = x + getmaxx div h; y: = y - getmaxy div h; end; readln; {пауза до нажатия } closegraph; {закрытие графического режима}end.
var i: integer; s: real;
begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.
Популярные вопросы