найти произведение чисел от m до n
5-9 класс
|
var mn,m,n,i:integer;
begin
readln(m,n);
for i:=m to n do
mn:=mn*i;
writeln(mn);
end.
Другие вопросы из категории
элемента. Какое минимальное количество раз необходимо выполнить эту операцию, для того, чтобы массив оказался отсортирован по убыванию? В ответе укажите число.
Читайте также
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
2)Написать программу которая бы выводила на экран произведение нечетных чисел от 10 до 20.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!