Задание:
For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до Bвключительно.
Решение:
Var a,b,c,i: integer; beginreadln (a,b); c: =1; for i: =a to b do begind: =i*b; b: =d; end; write (c); end.
Знаете другой ответ?
For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до Bвключительно.
Var a,b,c,i: integer; beginreadln (a,b); c: =1; for i: =a to b do begind: =i*b; b: =d; end; write (c); end.
Знаете другой ответ?