Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
EriCKinG
1 / 1 / 0
Регистрация: 11.11.2012
Сообщений: 20
#1

Дан одномерный массив натуральных чисел.Определить сумму элементов массива,сумма цифр которых кратна 3.Все вспомогательные алгоритмы оформить в отдель

27.01.2013, 15:25. Просмотров 600. Ответов 1
Метки нет (Все метки)

Дан одномерный массив натуральных чисел.Определить сумму элементов массива,сумма цифр которых кратна 3.Все вспомогательные алгоритмы оформить в отдельный модуль

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.01.2013, 15:25
Ответы с готовыми решениями:

Дан массив целого типа, определить элементы, сумма цифр которых кратна 3
Дан массив А (н) целого типаю оределить элементы, сумма цыфр которых кратна 3м...

Дан одномерный массив целых чисел. Определите сумму всех цифр в записи элементов массива.
Дан одномерный массив целых чисел. Определите сумму всех цифр в записи...

Найти в массиве натуральных чисел все группы элементов, сумма цифр (элементов) которых является палиндромом
1. Найти в строке самое маленькое по количест-ву слов множество, в словах...

Сформировать массив А из 3-значных чисел , у которых сумма цифр кратна числу р
сформировать массив А из 3-значных чисел , у которых сумма цифр кратна числу р.

Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15
Определить все двузначные числа, сумма квадратов цифр которых кратна числу 15. ...

1
Germanant
107 / 107 / 110
Регистрация: 28.02.2011
Сообщений: 967
Завершенные тесты: 2
27.01.2013, 23:01 #2
Лучший ответ Сообщение было отмечено EriCKinG как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var a:array[1..100] of integer;
    N,i,Sum:integer;
procedure InitM(n:integer);
begin
randomize;
for i:=1 to n do
a[i]:=random(99);
end;
procedure OutM(n:integer);
begin
for i:=1 to n do
write(a[i]:3);
writeln;
end;
 
function GetSum(k:integer):integer;
var s:string;
    error,el,Sm,j:integer;
begin
Sm:=0;
str(k,s);
for j:=1 to length(s) do
begin
Val(s[j],el,error);
Sm:=Sm+el;
end;
GetSum:=Sm;
end;
 
procedure Summ(n:integer);
begin
for i:=1 to n do
if getsum(a[i])  mod 3=0 then  sum:=sum+a[i];
end;
 
begin
InitM(10);
OutM(10);
Summ(10);
writeln('Sum=',sum);
readln;
end.
ну а в отдельный модуль думаю и сам сделаешь
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2013, 23:01

Определить количество трехзначных натуральных чисел, сумма цифр которых равна n
Определить k - количество трехзначных натуральных чисел, сумма цифр которых...

Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму элементов, у которых последняя цифра больше данного числа Х
Дан одномерный массив, который содержит не более 50 целых чисел. Найти сумму...

Определить количество трехзначных натуральных чисел, сумма цифр которых равна целому числу
Определить количество трехзначных натуральных чисел, сумма цифр которых равна...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru