написать программу: произведение чисел кратных семи.
10-11 класс
|
var
p, n: integer;
begin
repeat
read(n);
if n mod 7 = 0 then p := p * n;
until n = 0;
writeln('P = ', p);
end.
полностью сформулируйте задачу, так ничего не понятно
откуда берутся числа?
Другие вопросы из категории
лампочекдолжно находиться на табло, чтобы с его помощью можно было передать 75 различных сигналов?
случае положительного ответа напечатать их адреса
суммирование произвольного количества целых чисел вводимых с клавиатуры.Концом последовательности служит ввод отрицательного числа.Программу составьте двумя способами: использую цикл с предусловием и цикл с постусловием
утверждение, что введенное вами целое число является четным.
Читайте также
Ввести с клавиатуры натуральное число.написать программу, которая определяет, кратна ли сумма его цифр 6.
13.
Нужно написать программу на цикле с предусловием, на Паскале.
количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 6. Пример работы программы: Входные данные Выходные данные 3 12 25 6 18 20.2
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!