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

Найти произведение двухзначных чисел из заданного диапозона

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

Если это паскаль
диапазон вводится с клавиатуры

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.