0 / 0 / 0
Регистрация: 07.01.2015
Сообщений: 9
1

Найти количество элементов, сумма которых является четным числом

07.01.2015, 19:35. Показов 1360. Ответов 7
Метки нет (Все метки)

Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным числом, а хотя бы один из индексов нечетен.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const n=3;
Type Tind=1..n;
Tmatr=array[Tind,Tind] of integer;
var a:Tmatr;
var y,i,j,s,x,t:integer;
begin
        for i:=1 to n do
        for j:=1 to n do readln(a[i,j]);
        for i:=1 to n do
        for j:=1 to n do begin
                y:=0;
                x:=a[i,j];
                while x<>0 do begin
                y:=y + x mod 10;
                x:=x div 10;
                end;
                t:=0;
                if y mod 2 (!)= 0 and i mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if y mod 2 (!)= 0 and j mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if t=1 then s:=s+1;
                end;
end.
Ошибки в помеченных (!) пунктах.
Не судите строго если ошибки в моих незнаниях, я только начинаю)
Вывод writeln ещё не написал, пока так.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.01.2015, 19:35
Ответы с готовыми решениями:

Найти сумму элементов, сумма индексов которых является числом Фибоначчи
2)Дана вещественная матрица. Найти сумму элементов, сумма индексов которых является числом...

Определить является ли произведение элементов массива, значение которых меньше 10, чётным числом
Дан массив 3*3 из целых чисел заполненный случайными числами из интервала . Определить является ли...

Написать программу, которая высчитывает количество четных чисел, не превышающих заданного значения, сумма цифр которых также является четным числом.
Написать программу с использованием подпрограмм. В подпрограммах не должно присутствовать ввода...

Является ли сумма номеров всех квартир четным числом.
В подъезде дома имеется n квартир, пронумерованных подряд, начиная с номера а. Определить...

7
200 / 138 / 56
Регистрация: 25.12.2014
Сообщений: 442
07.01.2015, 19:56 2
Лучший ответ Сообщение было отмечено KeepTRolling как решение

Решение

Цитата Сообщение от KeepTRolling Посмотреть сообщение
incompatible types: got "Boolean" e
Это значит, что условия нужно заключать в скобки. Вот так, например:
Pascal
1
if (y mod 2 = 0) and (i mod 2 = 1) then...
Добавлено через 6 минут
Но я формулировку задачи не понял.
"Найти количество элементов, сумма которых является четным числом, а хотя бы один из индексов нечетен." "Сумма которых" - сумма элементов? Т.е. сумма считается прибавлением одного элемента к другому? Элементы можно брать только если столбец или строка (или то и другое) нечетны. А сколько элементов брать? A11-это сумма из одного элемента? Или их должно быть несколько? Что значит количество-количество сумм или количество элементов в сумме\суммах?
Уточните формулировку.
0
0 / 0 / 0
Регистрация: 07.01.2015
Сообщений: 9
07.01.2015, 20:35  [ТС] 3
Сумма цифр которых, не дописал

Добавлено через 2 минуты
Заключил в скобки, теперь при запуске "exitcode = 1", что не так?

Добавлено через 10 минут
окей гугл в этом помог, благодарю
0
Почетный модератор
64271 / 47570 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.01.2015, 20:55 4
Цитата Сообщение от TrueTerm Посмотреть сообщение
"Сумма которых
Я думаю там не допечатано Суммы цифр которых...
0
200 / 138 / 56
Регистрация: 25.12.2014
Сообщений: 442
07.01.2015, 21:09 5
KeepTRolling, Лучше сразу пропускать элементы, у которых строка и столбец чётны, незачем считать для них сумму цифр, а потом убеждаться, что они не нужны.
И s не обнуляется нигде.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
        s:=0;
        for i:=1 to n do
        for j:=1 to n do begin
            if odd(i) or odd(j) then begin
                y:=0;
                x:=a[i,j];
                while x<>0 do begin
                y:=y + x mod 10;
                x:=x div 10;
                end;
                if not odd(y) then s:=s+1;
           end
        end;
0
0 / 0 / 0
Регистрация: 07.01.2015
Сообщений: 9
08.01.2015, 15:22  [ТС] 6
TrueTerm, что значит odd?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32451 / 20945 / 8105
Регистрация: 22.10.2011
Сообщений: 36,213
Записей в блоге: 7
08.01.2015, 15:24 7
Odd(x) - проверка на нечетность числа X.. Если оно нечетное, то вернется True, иначе - False.
0
Почетный модератор
64271 / 47570 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.01.2015, 15:24 8
Вообще-то можно и в справку заглянуть...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2015, 15:24
Помогаю со студенческими работами здесь

Установить факт, что сумма цифр натурального числа является чётным числом
И снова всем привет :yahoo: решите пожалуйста: Составить программу (используя логическую...

Определить количество элементов массива, в которых сумма первой и последней цифр является четным числом
дан массив a(n). определить количество элементов массива , в которых сумма первой и последней цифр...

Произведение тех элементов матрицы, сумма которых является максимальным четным числом
Ребят, помогите написать программу по квадратной матрице. Нужно составить программу-функцию для...

Определить является ли сумма элементов массива, значение которых меньше 8, четным числом
Здравствуйте. Как правильно оформить задание? Вот условия &quot;Дан массив из 10 целых чисел заполненный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru