По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=2 ya=1 xb=10 - id400293920230526 от КристинаКупава 26.05.2023 00:18

Question

Информатика: По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=2 ya=1 xb=10 yb=7 пример выходных данных: |ab|=10.0

КристинаКупава · Accepted Answer

Программа может выглядеть так:

uses Crt;
const n=10;
var a, i, Sum: integer;
     Sred: real;
begin
ClrScr;
Sum:=0;
i:=1;
While i<=10 do
begin
   Write ('a = ');
   ReadLn(a);
   Sum:=Sum+a;
   i:=i+1;
end;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
WriteLn;

Sum:=0;
i:=1;
repeat
   Write ('a = ');
   ReadLn(a);
   Sum:=Sum+a;
   i:=i+1;
until i>n;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
WriteLn;

Sum:=0;
for i:=1 to n do
begin
      Write ('a = ');
      ReadLn(a);
      Sum:=Sum+a;
end;
Sred:=Sum/n;
Writeln('Sred = ', Sred:6:2);
ReadLn;
end.

По заданным координатам точек а и в вычислите длину отрезка ав пример входных данных: ха=2 ya=1 xb=10 yb=7 пример выходных данных: |ab|=10.0

MOGZ ответил