• 24 December 2013
    • Қазақ тiлi
    • Автор: Okorokova19981

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


    • 24 December 2013
    • Ответ оставил: Элионора3

    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.

    Оцените ответ

    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету...

Последние и похожие вопросы