obar1
?>

Чернильные Топи Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 0.5 секунд Ограничение по памяти: 256 мегабайт Чернильные Топи — довольно спокойный уголок Нивена. Здесь можно гулять, любоваться видами природы, шумом озера, а также рыбачить. Неудивительно, что именно здесь проходил XX чемпионат по ловле рыбы среди Моки. Участники должны были любым поймать как можно больше рыбы за отведенное время. Известно, что i-ый участник выловил ai мокиграммов рыбы. И вот, теперь настала пора награждать победителей. Организаторы хотят определить победителей следующим образом: • В соревновании должно быть ровно два победителя. Очевидно, что победители это такие Моки, что первый Моки выловил рыбы не меньше чем второй, а второй выловил не меньше чем все остальные (кроме него и первого • Из всех подходящих под предыдущие условия пар победителей нужно выбрать такую, что сумма их номеров минимальна. организаторам определить, возможно ли определить победителей, и если да, то определите, каким образом это можно сделать. Формат входных данных В первой строке на вход подается одно целое положительное число n (2 6 n 6 105 ). Далее во второй строке на вход подаются n целых положительных чисел ai (1 6 ai 6 109 ). Формат выходных данных Если ответа не существует, выведите -1. Иначе выведите четыре целых положительных числа в следующем формате: в первой строке выведите два числа: количество рыбы, пойманной первым победителем, и его номер; во второй строке выведите два числа: количество рыбы, пойманной вторым победителем, и его номер; Количество рыбы, пойманной первым победителем, должно быть не меньше, чем количество рыбы, пойманной вторым победителем. Если эти количества совпадают, то номер первого победителя должен быть меньше, чем номер второго.

Информатика

Ответы

Ligacom
1)

program raf105;

var i,j,del:integer;

begin

for i:=10 to 99 do

begin

 del:=0;

 for j:=1 to i do

 begin

   if (i mod j)=0

     then del:= del+1;

 end;

 if del=3

   then writeln(i);

end;  

end.

2)

program raf105;

var a,b,c:integer;

x:boolean;

begin

write('Введите число: ');

readln(a);

write('Введите искомую цифру: ');

readln(c);

while a<>0 do

begin

 b:= a mod 10;

 if x=false

   then x:= b=c;

 a:= (a-b) div 10;

end;

if x

 then writeln('В ведённом числе есть искомая цифра')

 else writeln('В ведённом числе нет искомой цифры');

end.

3)

a) 2

b) 1

c) 0

d) 1

e) бесконечно

Язык программирования PascalABC

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Чернильные Топи Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 0.5 секунд Ограничение по памяти: 256 мегабайт Чернильные Топи — довольно спокойный уголок Нивена. Здесь можно гулять, любоваться видами природы, шумом озера, а также рыбачить. Неудивительно, что именно здесь проходил XX чемпионат по ловле рыбы среди Моки. Участники должны были любым поймать как можно больше рыбы за отведенное время. Известно, что i-ый участник выловил ai мокиграммов рыбы. И вот, теперь настала пора награждать победителей. Организаторы хотят определить победителей следующим образом: • В соревновании должно быть ровно два победителя. Очевидно, что победители это такие Моки, что первый Моки выловил рыбы не меньше чем второй, а второй выловил не меньше чем все остальные (кроме него и первого • Из всех подходящих под предыдущие условия пар победителей нужно выбрать такую, что сумма их номеров минимальна. организаторам определить, возможно ли определить победителей, и если да, то определите, каким образом это можно сделать. Формат входных данных В первой строке на вход подается одно целое положительное число n (2 6 n 6 105 ). Далее во второй строке на вход подаются n целых положительных чисел ai (1 6 ai 6 109 ). Формат выходных данных Если ответа не существует, выведите -1. Иначе выведите четыре целых положительных числа в следующем формате: в первой строке выведите два числа: количество рыбы, пойманной первым победителем, и его номер; во второй строке выведите два числа: количество рыбы, пойманной вторым победителем, и его номер; Количество рыбы, пойманной первым победителем, должно быть не меньше, чем количество рыбы, пойманной вторым победителем. Если эти количества совпадают, то номер первого победителя должен быть меньше, чем номер второго.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

VladimirBorisovich
svetlanadianowa
Sknyajina5
alexeytikhonov
iptsr4968
anikamalish
Dmitrievna Lvovich
Оксана
sergey
Chausmonk4
Sergeevich-Drugov1513
galtig83
nash-crimea2019
glebovaludok
ss2911