1. Информатика
  2. Найти произведение чисел

Найти произведение чисел от А до Б (Pascal*)

TigrNavigator322 TigrNavigator322    3   16.01.2022 11:22    1

Ответы
Arsen290 Arsen290  16.01.2022 11:30

uses crt;

var a,b,i,p: integer;

begin

clrscr;

p:=1;

write('A,B: ');

readln(a,b);

for i:=a to b do

p:=p*i;

writeln('Произведение = ',p);

readln;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Кэйт777 Кэйт777  19.09.2019 05:10
Нужна программа на pascal abc, которая будет находить среднее арифметическое n чисел и округлять его до целых. 100 ! !...
messor06 messor06  19.09.2019 05:10
Даны два числа a и b. вывести на экран значения суммы и разности этих чисел....
Mashavicks Mashavicks  19.09.2019 05:10
Для удаления выделенного фрагмента рисунка в графическом редакторе paint...
danilponomary danilponomary  19.09.2019 05:10
Написать программу. найдите сумму и среднее арифметическое всех двузначных чисел кратных 3....
машад14 машад14  19.09.2019 05:10
Вычисли значение выражения в ms excel: (76+155)−2(75: (2+ (ответ округли до сотых)...
remixzx60 remixzx60  16.05.2020 17:07
Расставьте в правильно порядке этапы обработки документа:1. Оглавление 2. Ввод текста 3. Создание нового документа 4. Печать текстового документа 5. Редактирование текстового...
Evgeniasvavilna Evgeniasvavilna  16.05.2020 17:07
Менеджер находится в командировке. Ему необходимо привести очень важную для фирмы информацию. В его распоряжении находится только флешка, на которую можно поместить 4 Гбайт....
haskaa12 haskaa12  24.09.2019 18:20
Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных...
фируза14 фируза14  24.09.2019 18:20
Заполните случайными числами в диапазоне от 1 до 5 два массива: а[1: 20] и в[1: 20].найдите и выведите на экран тoлько те элементы этих массивов, значения которых . например,...
GNOM888 GNOM888  05.09.2019 01:00
#include using namespace std; int main() { int a,b,c,d; cin d ; a = d / 100 ; b = d % 100 % 100 ; cout a b endl; return 0 ; } input 1200 out put 12 00 скажите как сделать...

Популярные вопросы