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

Если в последовательности из 3-х чисел есть число 7, вычислить произведение этих чисел; иначе - сумму - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Считывание строки из потока, не удаляя символ-ограничитель http://www.cyberforum.ru/cpp-beginners/thread1214102.html
Есть ли какая-либо стандартная функция? P.S. Символ-ограничитель задается самостоятельно
C++ Уменьшение количества циклов Здрастье всем. Вопрос такой. Есть 5 вложенных циклов и тело цикла. for() for() for() for() for() {тело цикла} http://www.cyberforum.ru/cpp-beginners/thread1214095.html
C++ Граф в виде матрицы смежности и количества вершин
Переписывайте тексты в тело сообщения!!!! Всем здравствуйте. Помогите доделать код программы. Задание: Дан граф в виде матрицы смежности и количества вершин. Описать функцию выводя для каждой...
C++ Почему рандом не выходит?
Уже столько примеров просмотрел здесь и все равно не доходит. Ну что здесь не так? #include <iostream> #include <cstdlib> #include <ctime> using namespace std; int row=5, col=5, tmprow,...
C++ Определение методов вне класса http://www.cyberforum.ru/cpp-beginners/thread1214058.html
Определение методов вне класса используется только для того, чтобы не вносить беспорядок или есть еще какая- то причина?
C++ Полиморфизм инкапсуляция и наследование(ООП) Не как не могу понять зачем нужен Полиморфизм и инкапсуляция и их определение может вы подскажите, наследования я знаю подробнее

Показать сообщение отдельно
blond_blond
1 / 1 / 0
Регистрация: 31.03.2014
Сообщений: 43

Если в последовательности из 3-х чисел есть число 7, вычислить произведение этих чисел; иначе - сумму - C++

22.06.2014, 00:13. Просмотров 338. Ответов 2
Метки (Все метки)

Задача:
Составить программу, в которой пользователь вводит с клавиатуры 3 числа.
Если в последовательности из 3-х чисел есть число 7, то вычислить произведение этих чисел. В противном случае – получить их сумму.
Текст программы:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program lab_2;
Var 
a, b,c, d : real;
Begin
read (a, b, c);
if (a=7) then d: = a*b*c 
             else d: = a+b+c;
if (b=7) then d: = a*b*c 
             else d: = a+b+c;
if (c=7) then d: = a*b*c 
             else d: = a+b+c;
writeln (‘ ‘, d:5);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru