Форум » Динамическое программирование » 18 задание №48 (А.Кабанов) » Ответить
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: 48) (А. Кабанов) Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не менее чем на 9. Определите количество таких пар, для которых сумма чисел нечётная. Исходные данные записаны в виде столбца электронной таблицы в файле 18-k3.xls.
zarema_s@mail.ru: cabanov.alexey Здравствуйте, подскажите, пожалуйста, можно ли задачу 49 решить в Excel?
cabanov.alexey: zarema_s@mail.ru пишет: Здравствуйте, подскажите, пожалуйста, можно ли задачу 49 решить в Excel? Любая задача изначально имеет решение в электронной таблице (в данном случае используя диапазон, в котором начальное значение зафиксировано, а конечное плавает в зависимости от числа)
Гафарова З.Н.: Вот теперь ответ совпал.
Гафарова З.Н.: 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: Можно показать решение этой задачи в Excel?
cabanov.alexey: Решение заданий в Excel задание 48 Задание 49
seven071: cabanov.alexey Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не более чем на 6. Определите количество таких пар, для которых сумма чисел чётная. Исходные данные записаны в виде столбца электронной таблицы в файле 18.xls.Пожалуйста, помогите решить в Excel. что-то у меня не сходится с ответом 2936. У меня получается 2935. Что я делаю не так?
seven071: Файл тот же, что и в предыдущей задаче B1=ОСТАТ(A1;2) C6=СЧЁТЕСЛИ(B1:B6;1) D1==СУММ(C:C)
kami: cabanov.alexey почему-то не открываетсяя(
cabanov.alexey: Дана последовательность натуральных чисел. Рассматриваются всевозможные пары чисел, порядковые номера которых отличаются не более чем на 6.
Гафарова Зиля: Здравствуйте! Решила попробовать написать программу на языке 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: Индексы в Python начинаются с нуля.
полная версия страницы