Задать вопрос
21 ноября, 22:02

Даны два целых числа A и B (A < B). Найти

произведение всех целых чисел от A до B включительно.

+5
Ответы (1)
  1. 21 ноября, 22:14
    0
    Uses crt;

    var a, b, i:integer;

    pr:longint;

    begin

    readln (a, b) ;

    pr:=1;

    for i:=a to b do

    pr:=pr*i;

    writeln (pr) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны два целых числа A и B (A < B). Найти произведение всех целых чисел от A до B включительно. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике