Остап Бендер начал вырабатывать условия.
– В случае реализации клада я, как непосредственный участник концессии и технический руководитель дела, получаю шестьдесят процентов, а соцстрах можете за меня не платить.
Ипполит Матвеевич посерел.
– Это грабеж среди бела дня.
– А сколько же вы думали мне предложить?
– Н-н-ну, пять процентов, ну, десять, наконец. Вы поймите, ведь это же 15 000 рублей!
Они, конечно, договорились. А мы напишем программу, которая определит подходящие условия, то есть из списка чисел выберет те, что отличаются от среднего арифметического не более, чем на число, введённое первым.
Формат ввода
Вводится строка целых чисел, записанных через пробел.
Формат вывода
Вывести числа, которые отличаются от среднего арифметического не больше, чем на число, введённое первым, без повторений, порядок вывода не важен.
Пример 1
Ввод Вывод
2 3 4 5 6
2 3 4 5 6
Пример 2
Ввод Вывод
17 42 34 17 51 2
17 42 34
ответ в виде кода в программе phython
ar2:array[1..10] of integer;
i,k,m:integer;
begin;
randomize;
writeln('First array');
for i:=1 to 10 do
begin;
ar[i]:=random(7,9);
write(ar[i]:4);
end;
m:=0;
writeln;
for i:=1 to 10 do
if ar[i]=8 then
begin;
inc(m);
ar2[m]:=8;
end;
for i:=1 to 10 do
if ar[i]=7 then
begin;
inc(m);
ar2[m]:=7;
end;
for i:=1 to 10 do
if ar[i]=9 then
begin;
inc(m);
ar2[m]:=9;
end;
writeln('Final array');
for i:=1 to 10 do
begin;
ar[i]:=ar2[i];
write(ar[i]:4);
end;
end.
2)var a,b,m,i,j,c:int64;
begin;
readln(m);
for i:=1 to m do
begin;
for j:=1 to m do
if sqr(i)+sqr(j)=m then
begin;
writeln(i,'^2+',j,'^2=',m);
c:=1;
end;
end;
if c<>1 then
writeln('Невозможно');
end.