|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2011, 14:18 | #1 |
Пользователь
Регистрация: 13.09.2011
Сообщений: 15
|
ни фига не понимаю как решить(
дан массив из 10 целых чисел, найти сумму чисел в которых есть хотя бы одна четная цифра
|
25.09.2011, 14:28 | #2 |
фонатик DELPHI
Форумчанин
Регистрация: 14.01.2008
Сообщений: 714
|
1. функция, которая вычисляет если ли в числе чётные цифры:
Код:
95% сбоев и ошибок приложений, находится в полу метрах от монитора
|
25.09.2011, 14:29 | #3 |
Участник клуба
Регистрация: 03.06.2009
Сообщений: 1,839
|
даны Вам числа: 33, 4, 56, 11, 12, 34, 92
числа 33 и 11 исключаете сразу, т.к. в них только нечётные цифры 1 и 3. а вот остальные содержат в себе чётные цифры: 56 -6, 4 -4, 12 - 2, 34 - 4, 92 - 2 и из вам нужно сложить. что может быть проще? начните делать код, а дальше обсудим его вместе.
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
|
25.09.2011, 14:43 | #4 |
фонатик DELPHI
Форумчанин
Регистрация: 14.01.2008
Сообщений: 714
|
вторая часть кода, видно тут реально ленивый народ:
Код:
95% сбоев и ошибок приложений, находится в полу метрах от монитора
|
25.09.2011, 15:32 | #5 |
Пользователь
Регистрация: 13.09.2011
Сообщений: 15
|
program gh;
function CheckEven(Value:integer):boolean; var a:array [1..10] of integer; k,i,p,o:integer; result:boolean; begin writeln('vvedi massiv'); for i:=1 to 10 do readln(a[i]); result:=false; k:=Abs(Value); while k>10 do begin if (k mod 10) mod 2=0 then begin result:=true; break; end; k:=Trunc(k/10); end; begin p:=0; for i:=1 to 10 do if CheckEven(a[i]) then p:=p+a[i]; writeln('p=',p); end. я написал но паскалю всё равно что то не нравится |
25.09.2011, 15:42 | #6 |
фонатик DELPHI
Форумчанин
Регистрация: 14.01.2008
Сообщений: 714
|
Код:
95% сбоев и ошибок приложений, находится в полу метрах от монитора
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Звонят с Москвы или какого фига? | vasek123 | Свободное общение | 8 | 01.08.2011 17:32 |
я не понимаю как сделать... | Ольга Иванова | Помощь студентам | 1 | 24.03.2011 07:24 |
Помогите решить!Ничего не понимаю в информатике! | felice | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 03.02.2008 14:54 |
Delphi. Не понимаю как решить задачу. | EVIL | Помощь студентам | 3 | 21.10.2007 01:12 |