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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Цикл http://www.cyberforum.ru/cpp-beginners/thread234218.html
Здраствуйте помогите пожалуйста с написанием задачки С клавиатуры вводятся целые числа. Признак конца ввода – число 0. Определить число, следующее за последним из отрицательных чисел. и вот эта...
C++ Массивы в с++ для начинающих В целочисленный массив X(n) после каждого нечетного элемента вставить максимальный простой элемент этого же массива. Определить среднее арифметическое простых элементов массива до и после вставки. http://www.cyberforum.ru/cpp-beginners/thread234217.html
C++ В одномерном массиве найти элементы меньше всего отличающихся от введеного числа
Прошу помощи: 1) В одномерном массиве найти элементы меньше всего отличающихся от введеного числа. Решить без и с использованием функции. 2) В двумерном массиве указать столбец (столбцы)...
массивы C++
Написать программу, которая сначала вводит количество элементов массива, затем массив целых чисел, определяет и выводит количество нечетных элементов массива. Помогите пожалуйста, очень надо
C++ Перевод символьной строки в число функцией atoll http://www.cyberforum.ru/cpp-beginners/thread234165.html
Добрый день. Может кто сталкивался. Я хотела перевести строку в long long с помощью функции atoll. При компиляции выдается ошибка error C3861: atoll идентификатор не найден. stdlib.h подключено....
C++ Найти среднее арифметическое этой последовательности S=1-2+3-4+5-..., всего n слагаемых задача помогите!! Дана последовательность целых чисел, за которой следует 0. Определить, каких чисел в этой последовательности больше: положительных или... подробнее

Показать сообщение отдельно
taras atavin
Ушёл с форума.
3569 / 1753 / 91
Регистрация: 24.11.2009
Сообщений: 27,619
26.01.2011, 12:53
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.
1
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru