Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 25.09.2019
Сообщений: 21
1

Найти произведение всех целых чисел от А до В включительно

26.10.2019, 13:53. Просмотров 302. Ответов 3
Метки нет (Все метки)

Даны два целых числа А и В (А<В). Найти произведение всех целых чисел от А до В включительно. Составить блок-схему.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2019, 13:53
Ответы с готовыми решениями:

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

Найти произведение всех целых чисел от А до В включительно
даны 2 целых числа А и В (А&lt;В). найти произведение всех целых чисел от А до В включительно.

Даны два целых числа А и В (A<B). Найти произведение всех целых чисел от А до В включительно
Помогите Пожалуйста

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

3
426 / 152 / 37
Регистрация: 18.08.2012
Сообщений: 746
26.10.2019, 13:56 2
а ты кому задание даёшь? нам или себе?...
Здесь помогают, а делают за других - в разделе Фриланс.
0
1998 / 693 / 501
Регистрация: 15.01.2019
Сообщений: 2,132
27.10.2019, 04:29 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project1;
var
  a,b: integer;  // Переменные для хранения значения левой и правой границ вычислений.
  mult: integer;  // Переменная для хранения значения произведения.
  i: integer;     // Вспомогательная переменная, которая осуществляет перебор целых чисел.
begin
  repeat
    write('Введите значение целого числа А: ');
    readln(a);
    write('Введите значение целого числа B: ');
    readln(b);
    if a >= b then
      writeln('Число В должно быть больше А.');
  until a < b;
  mult:= 1;
  i:= a;  // Начальное значение аргумента.
  while i <= b do
    begin
      mult:= mult*i;  // Вычисление произведения чисел.
      inc(i);
    end;
  writeln('Произведение всех целых чисел от А до В включительно: ', mult);
  Readln;
end.
0
Cyborg Drone
29.10.2019, 12:10     Найти произведение всех целых чисел от А до В включительно
  #4

Не по теме:

untyped, сделать полностью задание за ТС как ни крути, является помощью. Да, мне тоже это не нравится. Однако, не нужно переходить на личности и отсылать ТС во фриланс. ТС вправе задавать вопрос в любой форме, если эта форма не противоречит правилам форума. Пожалуйста, на будущее: воздержитесь от высказываний в адрес того, кто, с Вашей точки зрения, является, например, халявщиком и ленивым неучем, не то я с Вами нехорошо поступлю. Просто не помогайте, и всё.

Juliannna, темы называйте осмысленно. Пишите вопрос так, чтобы он содержал глаголы не только в повелительном наклонении.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2019, 12:10
Привет! Вот еще темы с ответами:

Найти произведение всех целых чисел от A до B включительно
если можно с циклом for и while Добавлено через 1 час 22 минуты сделал сам:)

Найти произведение всех целых чисел от А до В включительно
FOR Даны два целых числа А и В (А&lt;В). Найти произведение всех целых чисел от А до В включительно.

Найти произведение всех целых чисел от A до B включительно
Даны два целых числа А и В (A &lt; B). Найти произведение всех целых чисел от A до B включитель-...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.