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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.68
Катрин1406
1 / 1 / 0
Регистрация: 02.05.2011
Сообщений: 16
#1

написать программу для подсчета суммы только положительных из трех данных чисел. - Pascal ABC

21.05.2011, 22:18. Просмотров 4570. Ответов 3
Метки нет (Все метки)

написать программу для подсчета суммы только положительных из трех данных чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.05.2011, 22:18
Здравствуйте! Я подобрал для вас темы с ответами на вопрос написать программу для подсчета суммы только положительных из трех данных чисел. (Pascal ABC):

Написать программу для нахождения суммы большего и меньшего из трех чисел - Pascal
Написать программу для нахождения суммы большего и меньшего из трех чисел (вводимых с клавиатуры). используя процедуру с параметром, и...

Написать программу для нахождения суммы большего и меньшего из трех чисел - Pascal ABC
Написать программу для нахождения суммы большего и меньшего из трех чисел.

Подпрограммы. Написать программу для нахождения суммы большего и меньшего из трех чисел - Pascal ABC
Написать программу для нахождения суммы большего и меньшего из трех чисел. Помогите пожалуйста.Срочно!

Написать программу для нахождения суммы только отрицательных из N вводимых с клавиатуры целых чисел - Pascal ABC
Пожалуйста напишите программу я не могу понять как ее написать!

Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел. - Pascal
Написать программу, которая подсчитывает среди заданных трех чисел количество положительных чисел.

Даны три числа x, у, z. Вычислить сумму только положительных чисел из трех данных - Pascal
Даны три числа x, у, z. Вычислить сумму только положительных чисел из трех данных

3
dedere
13 / 13 / 5
Регистрация: 19.05.2011
Сообщений: 24
21.05.2011, 22:25 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n1,n2,n3,s:integer;
begin
s:=0;
write('Введите первое число: ');
readln(n1);
if n1>=0 then s:=s+n1;
write('Введите второе число: ');
readln(n2);
if n2>=0 then s:=s+n2;
write('Введите третье число: ');
readln(n3);
if n3>=0 then s:=s+n3;
 
write('Сумма положительных чисел: ',s);
end.
1
iama
1250 / 975 / 49
Регистрация: 30.07.2010
Сообщений: 5,297
21.05.2011, 22:35 #3
dedere, а зачем нули плюсовать?
0
dedere
13 / 13 / 5
Регистрация: 19.05.2011
Сообщений: 24
22.05.2011, 18:58 #4
Как-то на автомате писал, если суммировать только положительные - то ноль уже не отрицательное
0
22.05.2011, 18:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 18:58
Привет! Вот еще темы с ответами:

8. Написать программу для подсчета суммы мест, на которых в словах текста стоит заданная буква - Pascal ABC
ПОМОГИТЕ ПОЖАЛУЙСТА! В ПАСКАЛЬ

Написать программу подсчета суммы факториалов целых чисел, не превышающую число А, которое вводится с клавиатуры. На экран вывести сумму и все слагае - Pascal
без использование операции If

Написать программу для подсчета произведения последовательных натуральных чисел в диапазоне от 5 до 10 - Pascal
1.Написать программу для подсчета произведения последовательных натуральных чисел в диапазоне от 5 до 10. 2.Написать программу для...

разработать программу для вычисления суммы положительных чисел - Pascal
Всем Hello!!! Помогите разработать программу для вычисления суммы положительных чисел. Пять вещественных чисел вводятся с клавиатуры...


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

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

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