QBasic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
QBasic Определить, является ли число a делителем числа b? Определить, является ли число a делителем числа b? https://www.cyberforum.ru/ qbasic/ thread2269150.html	Определить, является ли треугольник со сторонами a,b,c равносторонним QBasic Определить, является ли треугольник со сторонами a,b,c равносторонним.
QBasic Дано натуральное число n. Найти сумму n^2+n+1^2+.+2n^2 Дано натуральное число n. Найти сумму n^2+n+1^2+...+2n^2 https://www.cyberforum.ru/ qbasic/ thread2269138.html	QBasic Как нарисовать круг по точкам? как нарисовать круг по точкам в википедии эта тема опять с ошибками как будто хакеры эту википедию писали вроде это через синус косинус делается но не помню как https://www.cyberforum.ru/ qbasic/ thread2267640.html
Из заданных чисел напечатать те, которые не превышают n QBasic Помогите решить задачу. Дано число n. Из чисел 1, 4, 9, 16, 25, ... напечатать те, которые не превышают n.	QBasic Вычислить сумму ряда при x = 2 Помогите решить задачу x+\frac{x^3}{3}+\frac{x^5}{5}+...+\frac{x^{11}}{11} https://www.cyberforum.ru/ qbasic/ thread2267006.html
QBasic Вывести столбиком числа от 2.1 до 2.8 https://www.cyberforum.ru/ qbasic/ thread2267005.html Помогите решить задачу. Вывести "столбиком" следующие числа: 2,1, 2,2, 2,3, ..., 2,8	QBasic По порядковым номерам мастей вывести полное название игральной карты Помогите решить задачу. Мастям игральных карт условно присвоены следующие порядковые номера: масти "пики" — 1, масти "трефы" — 2, масти "бубны" — 3, масти "червы" — 4, а достоинству карт: "валету"...
QBasic Определить, входят ли в четырехзначное число заданные цифры https://www.cyberforum.ru/ qbasic/ thread2267003.html Помогите решить задачу. Дано четырехзначное число. Определить: а) входят ли в него цифры 2 или 7; б) входят ли в него цифры 3, 6 или 9.	QBasic Определить, какая из цифр трехзначного числа больше https://www.cyberforum.ru/ qbasic/ thread2267001.html Помогите решить задачу. Дано трехзначное число. Определить, какая из его цифр больше: а) первая или последняя; б) первая или вторая; в) вторая или последняя.
QBasic Определить максимальное и минимальное значения из двух различных вещественных чисел Помогите решить задачу. Определить максимальное и минимальное значения из двух различных веще- ственных чисел.	QBasic Записать условие, которое является истинным, когда ... https://www.cyberforum.ru/ qbasic/ thread2266999.html Помогите решить задачу. Записать условие, которое является истинным, когда: а) каждое из чисел X и Y нечетное; б) только одно из чисел X и Y меньше 20; в) хотя бы одно из чисел X и Y равно нулю;...

ZX Spectrum-128

6806 / 4565 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

25.06.2018, 18:36

Записать условие, которое является истинным, когда: а)целое А кратно двум или трем б)целое А не кратно трем и оканчивает - QBasic - Ответ 12502099

25.06.2018, 18:36. Показов 3828. Ответов 1

Метки (Все метки)

Сообщение было отмечено marcusft как решение

Решение

QBasic/QuickBASIC

INPUT a
IF (a MOD 2 = 0) OR (a MOD 3 = 0) THEN
  PRINT "Kratno 2 or 3"
ELSE
  PRINT "NE Kratno 2 or 3"
END IF
IF (a MOD 10 = 0) OR NOT (a MOD 3 = 0) THEN
  PRINT "Kratno ne 3 ili 0"
ELSE
  PRINT "NE Kratno ne 3 i ne 0"
END IF

Вернуться к обсуждению:
Записать условие, которое является истинным, когда: а)целое А кратно двум или трем б)целое А не кратно трем и оканчивает QBasic

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.06.2018, 18:36

Готовые ответы и решения:

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

Записать условие, которое является истинным, когда целое А кратно двум или трем
5.1 Записать условие, которое является истинным, когда целое А кратно двум или трем.

Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем
Помогите плиз срочно нужно Добавлено через 29 минут var a, b: integer; n, i: real; begin...

Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем
Записать условие, которое является истинным, когда целое А не кратно трем и оканчивается нулем.

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.06.2018, 18:36

Помогаю со студенческими работами здесь

Определить, что целое А кратно двум или трем
Записать условие,которое является истинным,когда : а)целое А кратно двум или трем; б)целое А не...

Записать условие, которое является истинным, когда только одно из чисел X, Y и Z кратно пяти
Нельзя использовать + - * / . Пытался через 2 исключающих или но не работает когда все числа...

Записать условие, которое является истинным, когда только одно из чисел X, Y и Z кратно 5 (условные операторы)
Записать условие, которое является истинным, когда только одно из чисел X, Y и Z кратно пяти. При...

Дано целое число. Определить кратно ли произведение его цифр трем
Дано целое число x (999 < x < 1 000 000). Определить: а) кратно ли произведение его цифр трем; б)...

Наверх