сервис вопросов и ответовс клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3
5-9 класс|
|
Gold02
27 нояб. 2013 г., 12:57:09 (10 лет назад)
23122002
27 нояб. 2013 г., 15:16:17 (10 лет назад)
Dim Massiv(9) as integer
Dim x as integer
Dim msg as string
For x=0 to 9
Massiv(x)=InputBox("Введите число №" & x+1)
If Massiv(x) mod 3 =0 then msg=msg & "Число " & Massiv(x) & " кратно 3." & vbCrLf
Next
MsgBox (msg)
Ответить
Другие вопросы из категории
Составить программу которая определяет сколько тыс.руб пропали сегодня в столовой из-за отсутствия на занятиях некоторых учащихся по неизвестной причине.
Программа должна спрашивать:
- сколько человек было поставлено на заявку.
- сколько человек присутствовало на занятиях.
- сколько стоит обед для одного учащегося.
Помогите пожалуйста, очень нужно, только правильно, заранее спасибо.
Какое значение будет
принимать переменная Х, после выполнения фрагмента программы:
f:=5; d:=7;
If f>=d
then x:=f else
x:=d
Читайте также
1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
помогите пожалуйста с free pascal :) 1. вывести на экран следующие числа: 5.8,5.9...6.8. 2.с клавиатуры задаётся цена 1 порции мороженого. вывести на
экран стоимость 1,2,..15 порций мороженого. 3.найдите сумму первых пятидесяти натуральных чисел,кратных 12. 4. с клавиатуры задаётся 10 чисел.найдите произведение чисел,меньших 10.найдите среднее арифметическое чисел кратных 3.
cпасибо огромное!
Вы находитесь на странице вопроса "с клавиатуры вводятся 10 чисел. найдите и напечатайте сумму чисел кратных 3", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.