Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC

5-9 класс

Igozv 18 марта 2017 г., 10:56:41 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Milenuvarova
18 марта 2017 г., 13:54:47 (7 лет назад)

s$ = ""

FOR i = 1 TO 100
IF (i MOD 2) <> 0 THEN
s$ = s$ + STR$(i) + " "
END IF
NEXT i

PRINT s$

 

 

Дополнение :

 

Чисел много, на экран не убираются

Будем из запоминать в текстовую переменную s$

s$ = "" -- Инициализирует пустую строковую переменную
FOR i = 1 TO 100 -- цикл от 1 до 100
IF (i MOD 2) <> 0 THEN -- нечетное число то, у которого отстаток от деления
-- на 2 не равен 0
-- <> логический оператор НЕ РАВНО
-- MOD - оператор возвращает остаток от деления
s$ = s$ + STR$(i) + " " -- Положить в конец переменной s$ строковое
-- предствление числовой переменной i
END IF -- конец блока цикла
NEXT i
PRINT s$ -- вывод переменной s$ на экран

Ответить

Другие вопросы из категории

Чудак-математик написал автобиографию: "Я окончил курс университета 44 лет от роду. Спустя год, 100-летним молодым человеком, я женился на 34-летней

девушке. Незначительная разница в возрасте - всего 11 лет - способствовала тому, что мы жили общими интересами и мечтами. Спустя немного лет у меня была уже и маленькая семья из 10 детей". Сколько детей было в семье?

Помогите пожалуйста!!!! Срочно!!!

1. Дано натуральное число а. Если а - четное, то вывести косинус числа а и квадратный корень из числа а, иначе вывести синус числа а и квадрат числа а.

2. Найти решение квадратного уравнения, если известны его коэффициенты.

3. Ввести 5 действительных чисел. Найти их сумму.

4. Дано натуральное число n. Ввести n целых чисел. Найти их произведение.

5. Ввести последовательность ненулевых чисел. Найти произведение элементов последовательности.

6.
Ввести последовательность ненулевых чисел. Найти кол-во четных элементов последовательности.

7. Найти наибольший общий делитель натуральных чисел а и b.

Читайте также

Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.

Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.

1)Составить программу нахождения суммы квадратов чисел от 25 до 125.

2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n

Помогите пожалуйста!!

Задачи на языке паскаль
1)вычесть сумму чисел от 3 до 20 кратных 4
2)Напишите программу вывода всех чётных чисел от 2 до 10

1)Напишите программу, которая в последовательности натуральных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 4. Программа получает

на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).

2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);

задача 1. Дано натуральное число n. Напишите программу выводящую на экран последовательность натуральных чисел от 1 до n. задача 2. Даны

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

Пожалуйста помогите !!!!!!!!



Вы находитесь на странице вопроса "С ПОМОЩЬЮ WHILE НАПИШИТЕ ПРОГРАММУ ВВОДА ВСЕХ НЕЧЁТНЫХ ЧИСЕЛ ОТ 1 ДО 100. ЭТО В QBASIC", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.