Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Найти произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b>=a).

Ответ оставил Гость

Program prog;
uses crt;
var a,b,i,p: integer;

begin
clrscr;
p:=1;
write(Введите значение а = ); readln(a);
write(Введите значение b = ); readln(b);

if b>=a then begin
for i:=a to b do
p:=p*i;

writeln(Произведение Р = , p);
end
else
writeln(a > b);
end.