Программа выполняетс в Паскале! Определите количество натуральных чисел, меньших 1000 и делящихся на 5 и 7 одновременно. Помогите
5-9 класс
|
плииз.
var a,x:integer;
begin
x:=0;
for a:=0 to 1000 do
if (a mod 5=0) and (a mod 7=0) then
x:=x+1;
writeln(x);
end.
Комментарий удален
Другие вопросы из категории
А) относительный
Б)смешанный
В)абсолютный
Г)мультимедийный
а) Свойства объекта
б) Действия объекта
в) Поведение объекта
г) Состояние объекта
2. Запишите несколько действий, которые можно совершить с объектами операционной системы.
а) Файл
б) Папка
Заранее огромное Вам спасибо!
Читайте также
на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
2)Найти среднее арифметическое всех целых чисел от a до 200 (значения a и b вводятся с клавиатуры; a>=200);
вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Пояснение: цикл while x<>0 do с условием if (x mod 6=0) and (x mod 10=4)
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
д количество чисел в последовательности, а затем сами числа.Количество чисел не превышает 1000. Введённые числа не превышают 30 000.Программа должна вывести одно число – количество двузначных чисел в заданной последовательности натуральных чисел.
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0