сервис вопросов и ответовСоставьте программу для нахождения количества чисел, кратных 3
5-9 класс|
|
и 5 в интервале от 300 до 1000.
DAXADAXA2056
04 мая 2013 г., 10:17:28 (10 лет назад)
Zheka89211
04 мая 2013 г., 11:45:23 (10 лет назад)
Excel программа, которая выводит количество чисел кратных 3, 5, 3и5
Sub krat()
S3 = 0
S5 = 0
S35 = 0
For i = 300 To 1000
If i / 3 = Int(i / 3) Then
S3 = S3 + 1
End If
If i / 5 = Int(i / 5) Then
S5 = S5 + 1
End If
If i / 5 = Int(i / 5) And i / 3 = Int(i / 3) Then
S35 = S35 + 1
End If
Next i
Cells(2, 2) = S3
Cells(3, 2) = S5
Cells(4, 2) = S35
End Sub
Ksy7772009
04 мая 2013 г., 12:22:55 (10 лет назад)
var k, numb, count:integer;
begin
for k:= 300 to 1000 do
if (k mod 3 = 0) and ( k mod 5 = 0) then
count:= count + 1;
writeln(count);
end.
Ответить
Другие вопросы из категории
составить на Паскале прогу определения минимума из 3 чисел с использованием логических операций(прога должна иметь дружественный интерфейс)
заранее спасибо)
В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 6; 9; 7; 2; 1; 5; 0; 3; 4; 8 соответственно,
т.е. A[0] = 6; A[1] = 9 и т.д.
Определите значение переменной c после выполнения следующего фрагмента программы.
c := 0;
for i := 1 to 9 do
if A[i - 1] < A[i] then begin
c := c + 1;
t := A[i];
A[i] := A[i - 1];
A[i - 1] := t
end;
Какой из вариантов обработки информации (вычисления, логические
рассуждения, кодирование, структурирование, поиск) будет производиться
при выполнении следующих действий:
а)
Радист записывает на русском языке сообщение, полученное с помощью азбуки Морзе
б)
Читайте также
Составьте программу для нахождения количества чисел, кратных 3
и 5 в интервале от 300 до 1000.
Напишите программу, которая в последовательности целых чисел находит сумму и количество чисел, кратных 17, или сообщает, что таких чисел нет. На вход
программы подаются целые числа, количество введенных чисел неизвестно, последовательность заканчивается числом 0 (0 - признак окончания ввода, не является членом последовательности). Количество чисел не превышает 100. Введенные числа по модулю не превышают 300. Программа должна вывести сумму и количество чисел, кратных 17, или вывести NO, если таких числе в последовательности нет
Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 4 и оканчивающихся на 0. Программа получает на вход целые
числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не является членом последовательности). Количество чисел не превышает 1000. Введеные числа по модулю не превышают 30000. Программа должна вывести число: количество чисел, кратных 4 и оканчивающихся на 0.
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел
в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 4.
Вы находитесь на странице вопроса "Составьте программу для нахождения количества чисел, кратных 3", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.