Найти произведение двухзначных чисел из заданного диапозона
Найти произведение двухзначных чисел из заданного диапозона
Гость
Ответ(ы) на вопрос:
Гостьесли это паскаль
диапазон вводится с клавиатуры
program pr1;
var a,b,x:integer; p:longint;
begin
writeLn('введите диапазон'); read(a,b);
x:=a;
while (x div 10)=0 do
inc(x);
p:=x;
inc(x);
while x<=b do
begin
p:=p*x;
inc(x);
end;
writeLn('p=',p);
end.
Не нашли ответ?
Похожие вопросы