For8. даны два целых числа a и b (a < b). найти произведение всех целых чисел от a до b включительно.

arslanmax arslanmax    3   29.05.2019 10:20    0

Ответы
Baby1FNAF Baby1FNAF  28.06.2020 11:30
Var a,b,c,i:integer;
begin
readln(a,b);
c:=1;
for i:=a to b do begin
d:=i*b;
b:=d;
end;
write(c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика