Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Iriska1303
4 / 4 / 1
Регистрация: 29.12.2011
Сообщений: 51
#1

Дано число. Если оно четное, кратное 9 и не кратное 8, то увеличить его в 23 раза - QBasic

02.01.2012, 14:54. Просмотров 1089. Ответов 4
Метки нет (Все метки)

Помогите пожалуйста с задачкой

Дано число. Если оно четное, кратное 9 и не кратное 8, то увеличить его в 23 раза.

Заранее огромное спасибо
http://www.cyberforum.ru/qbasic/thread1728096.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2012, 14:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дано число. Если оно четное, кратное 9 и не кратное 8, то увеличить его в 23 раза (QBasic):

Запрашивать у пользователя трехзначное число, пока не будет введено число, кратное 11-ти (WHILE/WEND)
Не могу составить программу. Используя операторы цикла WHILE … WEND,...

Найти наименьшее натуральное число М, кратное 5
CLS INPUT "Введите X =", x e = .01 M = 5 n = 1 s = 0 DO M = M + 5 LOOP...

Найти наименьшее натуральное число, кратное 4
Помогите с задачкой, плиз ) Найти наименьшее натуральное число М, кратное 4,...

Найти в последовательности минимальное натуральное число, кратное 7
Напишите программу, которая в последовательности натуральных чисел определяет...

В последовательности нужно найти наименьшее число, кратное 7
Написать программу Дана последовательность. В ней нужно найти наименьшее число...

4
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
02.01.2012, 15:13 #2
PureBasic
1
2
3
4
cls
input "x="; x
if x mod 2=0 and x mod 9=0 and x mod 8>0 then print x*23 else print "Levoe chislo"
end
0
Iriska1303
4 / 4 / 1
Регистрация: 29.12.2011
Сообщений: 51
02.01.2012, 17:14  [ТС] #3
спасибо большое!


как вычислить значение: Знак суммы (сверху 10, снизу i=1) (2+1/i)

помогите пожалуйста
0
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
02.01.2012, 17:51 #4
PureBasic
1
2
3
4
5
6
7
8
9
10
cls
dim A(10)
 
for i=1 to 10
  A(i)=2+1/i
  sum=sum+A(i)
next
 
print "summa:"; sum
end
Если я правильно понял условие...
1
Iriska1303
4 / 4 / 1
Регистрация: 29.12.2011
Сообщений: 51
02.01.2012, 18:40  [ТС] #5
спасибочки!
0
02.01.2012, 18:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2012, 18:40
Привет! Вот еще темы с решениями:

Определить наибольшее число кратное трем, оканчивающееся на 2
Напишите программу, которая в последовательности натуральных чисел определяет...

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

В последовательности натуральных чисел определить наименьшее число кратное трем, оканчивающееся на 5
Здравствуйте, не могу понять предложение " Напишите программу, которая в...

Дано натуральное число п. Определить, является ли оно простым
Дано натуральное число п. Определить, является ли оно простым.


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

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

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