Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
tum_electric
0 / 0 / 0
Регистрация: 23.05.2013
Сообщений: 3
1

Определить количество положительных и отрицательных чисел в последовательности

23.05.2013, 23:09. Просмотров 1353. Ответов 1
Метки нет (Все метки)

Вводится последовательность ненулевых чисел, завершаемая нулем. Определить количество положительных и отрицательных чисел в этой последовательности.
----------------------
Даны натуральные числа п и т. Вывести все числа в диапазоне от п до т, которые заканчиваются на 6, 8 или 9.

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

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2013, 23:09
Ответы с готовыми решениями:

Определить среди чисел количество положительных чисел и найти сумму отрицательных
Ввести 10 произвольных действительных чисел. Определить среди них количество...

Верно ли, что отрицательных чисел в последовательности больше, чем положительных?
Помогите решить задачу по Basic (символьные массивы) В списке из 12 фамилий...

If: Найти количество положительных и количество отрицательных чисел в исходном наборе
Даны три целых числа. Найти количество положительных и количество отрицательных...

Определить количество положительных и количество отрицательных элементов массива
Определить количество положительных и количество отрицательных элементов массива

Подсчитать количество отрицательных и положительных чисел
Помогите, пожалуйста. Дан одномерный массив из 20 элементов. Составить...

1
Фаер
641 / 370 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
24.05.2013, 13:26 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

No1
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
CLS:kp=0:ko=0
DO
INPUT "n="; n                 'ввод числа
IF n<0 THEN ko = ko + 1  'подсчёт кол-ва отрицательных 
IF n>0 THEN kp = kp + 1  'подсчёт кол-ва положительных
LOOP UNTIL n = 0            'вводим до тех пор, пока не будет введён ноль
PRINT "kol-vo pol:"; kp
PRINT "kol-vo otr:"; ko
END
No2
QBasic/QuickBASIC
1
2
3
4
5
6
7
CLS
INPUT "n="; n
INPUT "t="; t
FOR i = n TO t
IF i MOD 10 = 6 OR i MOD 10 = 8 OR i MOD 10 = 9 THEN PRINT i;
NEXT
END
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.05.2013, 13:26

Найдите количество положительных, отрицательных и нулевых чисел
Пусть дано 100 вещественных чисел, которые вводятся по одному. Найдите...

Определить процент положительных и отрицательных чисел
помогите пожалуйста с задачей 1)Определить процент положительных и...

Определить сумму отрицательных и количество положительных элементов массива X(n)
4.1 Определить сумму отрицательных и количество положительных элементов...


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

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

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