<em>VAR</em>
<em> px, py, r: Real;</em>
<em> x1, x2, y1, y2: Real;</em>
<em>BEGIN</em>
<em> Read(x1, y1);</em>
<em> Read(x2, y2);</em>
<em> </em>
<em> px := x2 - x1;</em>
<em> py := y2 - y1;</em>
<em> r := Sqrt(px*px + py*py);</em>
<em> </em>
<em> Write(r);</em>
<em>END.</em>
10+18=28
округляем в 32, это пятая степень двойки
5 умножить на 7 рано 35 делим на 8, округляем в большую сторону : 5
5 умножаем на 60: 300 байт
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
1)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=random(10);
Write(A[i]:4);
end;
Writeln;
Writeln('Введите число: ');
Readln(s);
For i:=1 to n do
begin
If A[i]=s then k:=k+1;
end;
Writeln('Число ',s,', его кол-во в массиве: ',k,' шт.');
<span>END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,min,mini,max,maxi:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
max:=A[1];
min:=A[1];
For i:=1 to n do
begin
if A[i]>max then
begin
maxi:=i;
max:=A[i];
end;
if A[i]<min then
begin
mini:=i;
min:=A[i];
end;
end;
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
<span>END.</span></span>
Шахматиста знают и футболист, и тусовщик. Андрей не знает Мишу, значит, Миша - не шахматист [1]. Тусовщика тоже все знают, поэтому Миша - не тусовщик. Значит, Миша - футболист [3]. Шахматист и Миша знакомы, значит, Андрей - не шахматист [4]. Поэтому Шахматист - Саша, а Андрей - тусовщик [5].
Таблица приведена во вложении.
