Форум программистов, компьютерный форум CyberForum.ru

Вычислить количество положительных чисел, кратных 7 и не кратных 5 - C++

Восстановить пароль Регистрация
 
ShuherPishet
0 / 0 / 0
Регистрация: 26.01.2011
Сообщений: 6
26.01.2011, 12:45     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #1
Люди добрые, незлые!Помогите с задачей. Очень, очень надо!

Вводится последовательность целых чисел, о - конец последовательности. Вычислить количество положительных чисел, кратных 7 и не кратных 5 и сумму отрицательных элементов последовательности.

P.S. :Можете даже назвать меня нубом,ламером или ещё кем то из этого ряда ,но не могу я её написать сам....
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2011, 12:45     Вычислить количество положительных чисел, кратных 7 и не кратных 5
Посмотрите здесь:

Вычислить сумму положительных чисел, кратных 3 и не кратных 5 C++
Вычислить количество натуральных чисел, кратных трем и не превышающих N C++
Определить каких положительных чисел больше в последовательности, кратных или не кратных 5? C++
C++ Вычислить количество натуральных чисел, кратных трем и не превышающих N
Найти количество чисел кратных 25 и не кратных 3 C++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
26.01.2011, 12:53     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program p;
var i,n,s:integerl;
begin
       n:=0;
       s:=0;
       repeat
               write('x='); readln(x);
               if ((x mod 7)=0) and ((x mod 5)<>0) and (x>0) then n:=n+1;
               if x<0 then s:=s+x;
       until i=0;
       writeln('count=',n);
       writeln('summ=',s);
end.
ShuherPishet
0 / 0 / 0
Регистрация: 26.01.2011
Сообщений: 6
26.01.2011, 13:01  [ТС]     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #3
writeln на паскале что означает? чтение переменной? или может вывод её на экран?
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
26.01.2011, 13:12     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #4
Сообщение было отмечено автором темы, экспертом или модератором как ответ
Блин, опять язык не посмотрел.
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#include <iostream.h>
int main ()
{
 int x,n,s;
 s=0;
 n=0;
 do
 {
  cout<<"x=";
  sin>>x;
  cout<<endl;
  if (((x%7)=0)&&((x%5)<>0)&&(x>0))
  {
   ++n;
  }
  if (x<0)
  {
   s+=x;
  }
 } while (x!=0);
 cout<<"count="<<n<<endl;
 cout<<"summ="<<s<<endl;
 return 0;
}
Добавлено через 6 минут
Исправил очепятку.
ShuherPishet
0 / 0 / 0
Регистрация: 26.01.2011
Сообщений: 6
26.01.2011, 13:12  [ТС]     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #5
Огромное тебе человеческое спасибо) ....но всё же..интересно - что writeln что такое на паскале?
taras atavin
Ушёл с форума.
 Аватар для taras atavin
3569 / 1752 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
26.01.2011, 13:13     Вычислить количество положительных чисел, кратных 7 и не кратных 5 #6
Вывод на экран с переходом на следующую строку.
Yandex
Объявления
26.01.2011, 13:13     Вычислить количество положительных чисел, кратных 7 и не кратных 5
Ответ Создать тему
Опции темы

Текущее время: 17:48. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru