Форум: «ЕГЭ по информатике»

На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

Форум » Динамическое программирование » 18 задание №48 (А.Кабанов)
	перенос

Автор

Сообщение

Гафарова Зиля

Не зарегистрирован

Отправлено: 20.12.20 17:33. Заголовок: 18 задание №48 (А.Кабанов)

Решила написать программу на Pascal для задачи №48. Ответ с ключом не совпадает. Прошу объяснить в чём моё недопонимание условия.
var s,n,sum,i,j:longint;
a,b:array[1..1000] of integer;
f:text;
begin
write('n=');readln(n);
assign (f,'18-k3.txt');
reset(f);
i:=1;
while not eof(f) do begin
readln(f,a[i]);
i:=i+1;
end;
close(f);
sum:=0;
for i:=1 to 993 do begin
s:=0;
for j:=i+7 to 1000 do begin
if (a[i]+a[j]) mod 2<>0 then s:=s+1; end;
sum:=sum+s;
end;
writeln('sum=',sum);
end.
ответ: 246908

Ответов - 13 [только новые]

cabanov.alexey

Сообщение: 338

Отправлено: 20.12.20 21:25. Заголовок: 48) (А. Кабанов) Дан..

48) (А. Кабанов) Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не менее чем на 9. Определите количество таких пар, для которых сумма чисел нечётная. Исходные данные записаны в виде столбца электронной таблицы в файле 18-k3.xls.

zarema_s@mail.ru

Сообщение: 8

Отправлено: 26.01.21 23:08. Заголовок: cabanov.alexey Здрав..

cabanov.alexey Здравствуйте, подскажите, пожалуйста, можно ли задачу 49 решить в Excel?

cabanov.alexey

Сообщение: 367

Отправлено: 27.01.21 19:56. Заголовок: zarema_s@mail.ru пиш..

zarema_s@mail.ru пишет:

цитата:

Здравствуйте, подскажите, пожалуйста, можно ли задачу 49 решить в Excel?

Любая задача изначально имеет решение в электронной таблице (в данном случае используя диапазон, в котором начальное значение зафиксировано, а конечное плавает в зависимости от числа)

Гафарова З.Н.

Не зарегистрирован

Отправлено: 21.12.20 13:02. Заголовок: Вот теперь ответ сов..

Вот теперь ответ совпал.

Гафарова З.Н.

Не зарегистрирован

Отправлено: 21.12.20 13:03. Заголовок: var s,n,sum,i,j:long..

var s,n,sum,i,j:longint;
a,b:array[1..1000] of integer;
f:text;
begin
write('n=');readln(n);
assign (f,'18-k3.txt');
reset(f);
i:=1;
while not eof(f) do begin
readln(f,a[i]);
i:=i+1;
end;
close(f);
sum:=0;
for i:=1 to 991 do begin
s:=0;
for j:=i+9 to 1000 do begin
if (a[i]+a[j]) mod 2<>0 then s:=s+1; end;
sum:=sum+s;
end;
writeln('sum=',sum);
end.

Ответ: 245937

Lidia

Не зарегистрирован

Отправлено: 28.01.21 09:54. Заголовок: Можно показать решен..

Можно показать решение этой задачи в Excel?

cabanov.alexey

Сообщение: 369

Отправлено: 28.01.21 17:03. Заголовок: Решение задания в Ex..

Решение заданий в Excel

задание 48
Задание 49

seven071

Не зарегистрирован

Отправлено: 01.02.21 21:14. Заголовок: cabanov.alexey Дана..

cabanov.alexey
Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не более чем на 6. Определите количество таких пар, для которых сумма чисел чётная.
Исходные данные записаны в виде столбца электронной таблицы в файле 18.xls.Пожалуйста, помогите решить в Excel.
что-то у меня не сходится с ответом 2936. У меня получается 2935. Что я делаю не так?

seven071

Сообщение: 1

Отправлено: 01.02.21 21:17. Заголовок: Файл тот же, что и в..

Файл тот же, что и в предыдущей задаче
B1=ОСТАТ(A1;2)
C6=СЧЁТЕСЛИ(B1:B6;1)
D1==СУММ(C:C)

kami

Не зарегистрирован

Отправлено: 09.02.21 10:34. Заголовок: kam

cabanov.alexey почему-то не открываетсяя(

cabanov.alexey

Сообщение: 371

Отправлено: 02.02.21 07:41. Заголовок: Дана последовательно..

Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не более чем на 6.

Гафарова Зиля

Не зарегистрирован

Отправлено: 02.02.21 12:56. Заголовок: Задача №48 на языке Python

Здравствуйте! Решила попробовать написать программу на языке Python для задачи №48.
f=open('18-k3.txt', 'r')
mr=[1]*1000
mr[1]=int(f.readline())
for i in range(2,1000):
mr[i]=int(f.readline())
sum=0
for i in range(1,991):
s=0
for j in range(i+9,1000):
if ((mr[i]+mr[j]) % 2!=0):
s=s+1
sum=sum+s
print(sum)
f.close()

Ответ: 245436. Не совпадает с ключом, хотя при решении на PascalABC ответ совпадал. Что я неправильно пишу в программе на Python? Язык я стала изучать сейчас, т.к. Pascal труден для учащихся (как они говорят).

cabanov.alexey

Сообщение: 374

Отправлено: 09.02.21 14:58. Заголовок: Индексы в Python нач..

Индексы в Python начинаются с нуля.

Ответ:

1 2 3 4 5 6 7 8 9

показывать это сообщение только модераторам
не делать ссылки активными

Имя, пароль:

зарегистрироваться

Форум » Динамическое программирование » 18 задание №48 (А.Кабанов)

Тему читают:

- участник сейчас на форуме

- участник вне форума

Все даты в формате GMT 3 час. Хитов сегодня: 86
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет

Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия