Задать вопрос
14 марта, 04:14

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

+2
Ответы (1)
  1. 14 марта, 07:27
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «For8. Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике