Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Niva
0 / 0 / 0
Регистрация: 05.12.2011
Сообщений: 10
#1

Дано натуральное n

11.12.2011, 11:06. Просмотров 876. Ответов 1
Метки нет (Все метки)

4. Дано натуральное n, целые а1, …,аn. Найти количество и сумму тех членов последовательности, которые делятся на 5 и не делятся на 7.

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

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

Дано натуральное...
Дано натуральное число N. Найти первую цифру числа N это тут как массив...

Дано натуральное число n
Дано натуральное число n. Вычислить 1+1/(2*2*2)+1(3*3*3)+...+1/(n*n*n),...

Дано натуральное число.
1)Дано натуральное число n. Вычислить 1^1+2^2+...+n^n. 2)Дана...

Дано натуральное n. Вычислить:
Дано натуральное n. Вычислить: 1/(1^3)+1/(2^3)+...+1/(20^3)

Дано натуральное чисто N
Дано натуральное чисто N определить количество цифр в числе , найти самую...

1
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
11.12.2011, 11:43 #2
Лучший ответ Сообщение было отмечено Niva как решение

Решение

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
uses crt;
var a: array [1..100] of integer;
    n,i,k,sum: integer;
begin
randomize;
write('Размер последовательности ');
readln(n);
writeln('Дан массив');
k:=0; sum:=0;
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write(a[i]:4);
    if (a[i] mod 5=0) and (a[i] mod 7<>0) then
       begin
       k:=k+1;
       sum:=sum+a[i];
       end;
    end;
writeln;
writeln('Количество элементов, которые делятся на 5 и не делятся на 7 = ',k);
writeln('Сумма элементов, которые делятся на 5 и не делятся на 7 = ',sum);
readkey
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 11:43

дано натуральное число n
дано натуральное число n. Вычислить: 1/1+1/22+…+1/nn

Дано натуральное число
Дано натуральное число. а)Верно ли, что сумма его цифр больше k, а само число...

Дано натуральное число п.
Дано натуральное число п. Вычислить: Р = (1 – ½ )(1 – ¼)(1 – 1/6)* … * (1 –...


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

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

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