Всё сделано, принимайте работу)))
Объяснение:
Задача №1:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 8 do
begin
a[i]:= 4 + i*5;
writeln(i+1,'. x = ',a[i],' -- ',a[i]*a[i]);
end;
end.
Задача №2:
var a: array [1..100] of integer;
i,ch :integer;
begin
ch:= 0;
for i:= 0 to 9 do
begin
a[i]:= 3 + i*3;
writeln(i+1,'. x = ',a[i],' -- S = ',a[i]*a[i]*Pi:0:4);
end;
end.
Задача №3:
var x,i,a :integer;
begin
writeln('x = ');
readln(x);
a:= 1;
for i:= 1 to x do
begin
a:= a*i;
end;
writeln('x! = ',a);
end.
n = 10;
var
i, k, j: integer;
a: array[1..n] of integer;
begin
Write('Введите через пробел девять целых чисел в порядке возрастания: ');
for i := 1 to n - 1 do Read(a[i]);
Write('Введите целое число для вставки: '); Read(k);
{Определим позицию для вставки}
i := 1;
while (k > a[i]) and (i < n) do i := i + 1;
{Выполним сдвиг бОльших элементов вправо}
for j := n - 1 downto i do a[j + 1] := a[j];
{Осуществим вставку}
a[i] := k;
{Контрольный вывод}
Writeln('Результирующий массив');
for i := 1 to n do Write(a[i], ' ')
end.
Тестовые решения:
Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24
Введите целое число для вставки: 25
Результирующий массив
3 6 8 10 14 15 17 19 24 25
Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24
Введите целое число для вставки: 0
Результирующий массив
0 3 6 8 10 14 15 17 19 24
Введите через пробел девять целых чисел в порядке возрастания: 3 6 8 10 14 15 17 19 24
Введите целое число для вставки: 13
Результирующий массив
3 6 8 10 13 14 15 17 19 24