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

Question

Информатика

Миняша

4 сентября, 20:43

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

+4

Ответы (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.