Даны два числа А и В (А<В). Найти произведение всех целых чисел от А до В включительно. For

Question

Информатика

Гоша

25 октября, 15:34

Даны два числа А и В (А<В). Найти произведение всех целых чисел от А до В включительно. For

+5

Ответы (1)

Знаете ответ?

Аникий · Answer 1

Program abc;

var a, b, c, i, i1:integer;

begin

readln (a, b) ;

if (a
for i:=1 to b do

begin

i1:=i+1;

c:=i1+i;

end;

if (a>b) then

for i:=1 to a do

begin

i1:=i+1;

c:=i1+i;

end;

writeln (c) ;

end.