даны два числа A и B найти произведение всех целых чисел из промежутка от A до B
10-11 класс
|
P:=0;
for i:=a to b do
for j:=a to b do
P:=p+i*j;
Не забываем про спасибо :)
Program Zadacha;
var
a, b: integer;
min, max: integer;
p: integer;
i: integer;
Begin
Write('Enter a, b ');
ReadLn(a, b);
if (a < b) then
begin
min := a;
max := b;
end
else
begin
min := b;
max := a;
end;
p := 1;
for i := min to max do
p := p * i;
WriteLn(p);
ReadLn;
End.
Другие вопросы из категории
за контрольную работу в классе из 30 человек учитель поставил 7 пятёрок,9 четверок,8 троек и 6 двоек.Сколько битов информации несёт сообщение "Ваня не получил двойку"?
кодирования букв О, К, М, Л решили
использовать двоичное представление чисел 0,
1, 2 и 3 соответственно (с сохранением одного незначащего нуля в случае
одноразрядного представления). Если закодировать последовательность букв МОЛОКО таким способом и результат
записать шестнадцатеричным кодом, то получится.?
Читайте также
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
(A < B). Найти произведение всех целых чисел от A до B
включительно.
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5