Логика ниже. Подгони под нужный яп:
read(n,k);
s:=0;
for i:=1 to n do s:=s+1^k;
print(s);
1) находим расстояния от начала координат до точек ( длины отрезков )
S = x^2+ y ^2 , где x и y - координаты двух точек
2) сравниваем их
9)вообще когда считал,получалось 128 бит,но увы там в ответе биты,значит самое оптимальное 64 бит,ответ Б
10) ответ 6,не буду расписывать,слишком долго,там из 25 вычитаешь 13 = 12 и из 12 по условию задачи бежишь
Объекты Базы Данных , их хранение СУБД Access ориентирована на работу с объектами Базы Данных , к которым относятся таблицы, запросы, формы, отчеты, страницы, макросы и модули.
Ответ:
program z_1;
var
a, b: array [1..3] of Integer;
i, imax, btmp: Integer;
ine: boolean;
Begin
for i := 1 to 3 do begin
Read (a [i]);
b [i] := 0;
end;
ine := False;
for i := 1 to 3 do begin
if a [i] mod 3 = 0 then begin
b [i] := a [i];
Ine := True;
end else
b [i] := 0;
end;
if ine then begin
imax := 1;
for i := 2 to 3 do
if b [i] > b [imax] then
imax := i;
btmp := b [imax];
b [imax] := b [1];
b [1] := btmp;
if b [2] < b [3] then begin
btmp := b [2];
b [2] := b [3];
b [3] := btmp;
end;
WriteLn;
for i := 1 to 3 do
if b [i] <> 0 then
Write (b [i], ' ');
end else
WriteLn ('Значений нет.');
ReadLn;
ReadLn;
end.