Предмет: Информатика,
автор: stepanovdenis72
Даны два целых числа A и B (A < B). Найти
произведение всех целых чисел от A до B включительно.
Ответы
Автор ответа:
0
uses crt;
var a,b,i:integer;
pr:longint;
begin
readln(a,b);
pr:=1;
for i:=a to b do
pr:=pr*i;
writeln(pr);
end.
var a,b,i:integer;
pr:longint;
begin
readln(a,b);
pr:=1;
for i:=a to b do
pr:=pr*i;
writeln(pr);
end.
Похожие вопросы
Предмет: Химия,
автор: gogarubchenkov
Предмет: Алгебра,
автор: r5rer
Предмет: Математика,
автор: dilnazsulejmenova074
Предмет: Математика,
автор: karina210981
Предмет: Геометрия,
автор: Алёна11115151