1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
Uses GraphABC;
var s:string;
begin
writeln('Введите название фигуры (круг или треугольник):');
readln(s);
setwindowsize (640,480);
setwindowtitle (s);
setpencolor (clBlue);
setpenwidth (4);
if s='круг' then
circle(300,200,120)
else begin
Line(300,50,30,400);
Line(30,400,570,400);
Line(570,400,300,50);
end;
end.
Чтобы сравнить, элементарно переведем в десятичную систему счисления:
65₈=6*8^1+5*8^0=48+5=53₁₀
53₇=5*7^1+3*7^0=35+3=38₁₀
Значит, 53₇<65₈
Кол-во чисел в массиве которые меньше их порядкового номера
Отношения между объектами - диаграммы Эйлера-Венна
Объект-фотографии
Стоимость объекта -числа
Р. об.- эскиз
Ф. р. об. - чертежа
Эл. с. об. -схемы
Цв. об.-рисунка