Question

1)знайти відстань між двома точками площини

2)обчислити середнє арифметичне трьох чисел

пожалуйста очень нужно по информатике !!!!

Answer 1

Ответ:program summa;

var a, b: integer;

begin

b:=0;

while (a<=15) do begin

b:=a+b;

a:=a+1;

end;

writeln('среднее арифметическое => ',b/15);

end.

Объяснение: