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

Question

Информатика

Зара

13 февраля, 07:51

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

+2

Ответы (1)

Знаете ответ на вопрос?

Лидуня · Answer 1

Если это паскаль

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

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.