<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x1,y1):=ReadReal2('Координаты 1-й точки:');
var (x2,y2):=ReadReal2('Координаты 2-й точки:');
var a:=Abs(x2-x1); // считаем, что координаты указаны верно
var d:=a*Sqrt(2);
var (xc,yc):=((x2+x1)/2,(y2+y1)/2);
Writeln('Длина стороны ',a,', диагональ ',d);
Writeln('Координаты центра пересечения диагоналей: ',xc,' ',yc)
end.
<u>Пример</u>
Координаты 1-й точки: -3 3.5
Координаты 2-й точки: 4 -3.5
Длина стороны 7, диагональ 9.89949493661167
Координаты центра пересечения диагоналей: 0.5 0
Общее - это то, что можно общаться с определённым кругом лиц, различие, то что в разное время. Например: на форуме сообщениями обмениваются не сразу, а в чате они приходят за считаные секунды, в телеконференции идёт разговор в реальном времени.
#include <stdio.h>
#include <stdlib.h>
int main()
{
int n, f=0;
scanf ("%d", &n);
int a[n];
srand (time(NULL));
for (int i = 0; i < n; i++ )
{
a[i] = rand() % 20 -10;
printf ("%4d ", a[i]);
}
printf("\n");
for (int i = 0; i < n; i++ )
if (a[i]==0) f++;
if (f>0) printf("YES");
else printf("NO");
return 0;
}
Пример:
10
<span> -1 -4 0 1 2 5 -7 -8 5 6
YES</span>
125(8)
+
375(8)
_______
522(8) 2(8) = 10(2) 5(8) = 101(2) -> 522(8) = 101 010 010(2)
237(8)
+
712(8)
________
1151(8) 1(8) = 001(2) 5(8) = 101(2) -> 1151(8) = 1 001 101 001 (2) - на каждую цифру разряда в восьмиричной системе приходится 3 бита в двоичной системе