Написать программу, распределяющую эти гири на очень вероятное количество пар так,
Написать программку, распределяющую эти гири на очень вероятное количество пар так, чтоб суммарный вес гирь в каждой паре выражался обычным числом
Задать свой вопрос1 ответ
Олег Моцаков
var nbsp;n, p, i, j : longint;
nbsp;nbsp;f1, f2 : text;
function prostoe(n:longint): boolean;
nbsp;nbsp;var i, j : longint; t : boolean;
begin
nbsp;nbsp;j:=2; t:=true;
nbsp;nbsp;while t and (j*jlt;=n) do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if n mod j=0 then t:=false;
nbsp;nbsp;nbsp;nbsp;j:=j+1
nbsp;nbsp;end;
nbsp;nbsp;prostoe:=t
end;
begin
nbsp;nbsp;assign(f1,input.txt); reset(f1);
nbsp;nbsp;assign(f2,output.txt); rewrite(f2);
nbsp;nbsp;read(f1,n);
nbsp;nbsp;while ngt;1 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p:=n+1;
nbsp;nbsp;nbsp;nbsp;while not prostoe(p) do p:=p+1;
nbsp;nbsp;nbsp;nbsp;i:=p-n; j:=n; n:=i-1;
nbsp;nbsp;nbsp;nbsp;while ilt;j do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(f2,i, ,j);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i:=i+1; j:=j-1
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;end;
nbsp;nbsp;close(f2)
end.
nbsp;nbsp;f1, f2 : text;
function prostoe(n:longint): boolean;
nbsp;nbsp;var i, j : longint; t : boolean;
begin
nbsp;nbsp;j:=2; t:=true;
nbsp;nbsp;while t and (j*jlt;=n) do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;if n mod j=0 then t:=false;
nbsp;nbsp;nbsp;nbsp;j:=j+1
nbsp;nbsp;end;
nbsp;nbsp;prostoe:=t
end;
begin
nbsp;nbsp;assign(f1,input.txt); reset(f1);
nbsp;nbsp;assign(f2,output.txt); rewrite(f2);
nbsp;nbsp;read(f1,n);
nbsp;nbsp;while ngt;1 do
nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;p:=n+1;
nbsp;nbsp;nbsp;nbsp;while not prostoe(p) do p:=p+1;
nbsp;nbsp;nbsp;nbsp;i:=p-n; j:=n; n:=i-1;
nbsp;nbsp;nbsp;nbsp;while ilt;j do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;writeln(f2,i, ,j);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;i:=i+1; j:=j-1
nbsp;nbsp;nbsp;nbsp;end
nbsp;nbsp;end;
nbsp;nbsp;close(f2)
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов