Задание 4. Маржан рисует треугольник. В  коде ей надо использовать три  функции. Это:

ellipse()

polygon()

line()

aline()

rect()

​

Первая задача:

var digs:String;

   sum, sr:Real;

   i:Integer;

begin

 writeln('Введите 5 чисел через пробел');

 readln(digs);

 digs := digs.Replace(' ', '');

 sum := 0;

 for i := 1 to 5 do

   sum := sum + strToInt(digs[i]);

 sr := sum / 5;

 writeln('Сумма: ' + sum);

 writeln('Сред. арифметическое: ' + sr);

end.

Ввод:

1 2 3 4 5

Вывод:

Сумма: 15

Сред. арифметическое: 3

Вторая задача:

var i:Integer;

begin

 for i := 0 to 10 do

   writeln(i + '^3=' + i**3);

end.

Вывод:

0^3=0

1^3=1

2^3=8

3^3=27

4^3=64

5^3=125

6^3=216

7^3=343

8^3=512

9^3=729

10^3=1000

4.1. 1) До начала составления самой программы

2) После составления программы

3) В процессе составления программы

4.2. 1) представление алгоритма в виде схемы

2) язык программирования высокого уровня

3) словесное описание алгоритма

4.3. 1) ассемблер

2) паскаль

3) компилятор

4) фортран

4.4. 1) необходимо рисовать, если направление потока сверху вниз и слева направо

2) рисовать не нужно

3) необходимо рисовать, если направление потока снизу вверх и справа налево

4) можно рисовать или не рисовать

4.5. 1) сведение задачи к математической модели, для которой известен метод решения

2) выбор наилучшего метода из имеющихся

3) точное описание данных, условий задачи и ее целого решения

4) определение последовательности действий, ведущих к получению результатов