Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
Movsar
1

Дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые кратны 5

19.06.2014, 23:50. Просмотров 1676. Ответов 1
Метки нет (Все метки)


Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые кратны 5. в Байсике...
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2014, 23:50
Ответы с готовыми решениями:

Найти сумму тех элементов массива, которые кратны данному K
1) Дан массив A(N), найти сумму тех элементов которые кратны данному K Маленько начал решать,...

Пусть дано 20 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые нечетны и отрицательны
Пусть дано 20 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые нечетны и...

Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму кратных 5
Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые: А)...

С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5 (цикл с предусловием)
С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5....

1
Заблокирован
20.06.2014, 12:34 2
Лучший ответ Сообщение было отмечено как решение

Решение

Вот код, решающий вашу задачу
Если вам надоест вводить 100 чисел, то введите 0
и программа завершит свою работу и выдаст результат.
(программа проверена)
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DIM i AS INTEGER
DIM x AS INTEGER
CLS
 
s = 0
FOR i = 1 TO 100
   PRINT "Vvedite Chislo N"; i;
   INPUT ; x
   IF x = 0 THEN 100
   PRINT
   IF x MOD 5 = 0 THEN s = s + x
NEXT i
 
100
PRINT
PRINT "SUMMA ="; s
END
Удачи вам!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2014, 12:34

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

Пусть дано 100 целых чисел, которые вводятся по одному. Найти сумму чисел
...которые меньше по абсолютному значению квадрата порядкового номера вводимого числа.

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

Даны четыре целых числа. Определить сумму тех из них, которые кратны 3.
))напишите пожалуйста.

Даны четыре целых числа. Определить сумму тех из них, которые кратны 3
только надо решить без функций for to do толь можно else if and then


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

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

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