Найти произведение всех целых чисел от a до b (значения a и b вводятся с клавиатуры; b больше =a).
Найти произведение всех целых чисел от 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.
Не нашли ответ?
Похожие вопросы