Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.
Вычислить значение выражения 328 + A416 = ? 2.
см ворд
Нужно уберегать, в первую очередь, от электростатических зарядов при установке.
Var a:array[1..30] of integer;
i,sr,k:integer;
begin
for i:=1 to 30 do begin
read(a[i]);
if a[i]>0 then begin sr+=a[i]; inc(k); end;
end;
writeln(sr/k:3:2);
<span>end.</span>
Объем памяти = 768*512*16 бит = 768*512*16/8 байт = 768*512*2 байт =
768*512*2/1024 Кбайт = 768 Кбайт