На языке паскаль1)заполните массив а первыми n натуральными числами,начиная с x(ввести x с клавиатуры) в обратном порядке( начиная с конца массива)2)заполнить массив a первыми n числами фибоначчи.первые два числа фибонначи равны еденице, а каждое последующее число фибонначи вычисляется как сумма двух предыдущих , надо!

114.31

Объяснение:

writeln (s:6:2)

s - переменная

6 - количество знаков, выделяемых для вывода переменной

2 - количество знаков после запятой (точки) (они не являются добавочными к количеству знаков, а включены в это количество)

В данном случае: 3 знака до точки, 1 знак сама точка, 2 знака после точки.

Последний знак округляется (от 5 в большую сторону).

Если количество знаков, выделяемых под переменную больше, чем её размер, то перед переменной добавляются необходимые пробелы.

Если мы выводим не вещественную (дробную) переменную, то через двоеточие указывается только количество знаков, выделяемых для вывода переменной (второе двоеточие не используется).

Машинка

program avto;

Uses crt,GraphABC;

Var x,y:integer;

Begin

X:=300; y:=200;

SetPenColor(clgray);

//колесо

Circle(x+10,y+50,20);

//колесо

Circle(x+100,y+50,20);

//корпус машины

MoveTo (x+30,y+50);

LineTo (x+80,y+50);

MoveTo (x+120,y+50);

LineTo (x+140,y+50);

MoveTo (x+140,y+50);

LineTo (x+140,y+20);

MoveTo (x+140,y+20);

LineTo (x+120,y+20);

MoveTo (x+120,y+20);

LineTo (x+100,y-30);

MoveTo (x+100,y-30);

LineTo (x+30,y-30);

MoveTo (x+30,y-30);

LineTo (x+10,y+20);

MoveTo (x+10,y+20);

LineTo (x-25,y+20);

MoveTo (x-25,y+20);

LineTo (x-25,y+50);

MoveTo (x-25,y+50);

LineTo (x-10,y+50);

//первое окно

MoveTo (x+20,y+20);

LineTo (x+60,y+20);

MoveTo (x+60,y+20);

LineTo (x+60,y-20);

MoveTo (x+60,y-20);

LineTo (x+35,y-20);

MoveTo (x+35,y-20);

LineTo (x+20,y+20);

//второе окно

MoveTo (x+70,y+20);

LineTo (x+110,y+20);

MoveTo (x+70,y+20);

LineTo (x+70,y-20);

MoveTo (x+70,y-20);

LineTo (x+95,y-20);

MoveTo (x+95,y-20);

LineTo (x+110,y+20);

End.