Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 13.12.2016
Сообщений: 10
1

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

13.12.2016, 19:29. Просмотров 1674. Ответов 7
Метки нет (Все метки)

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


по теме циклов должно быть и можете пожалуйста скрин сработающего кода отправить.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2016, 19:29
Ответы с готовыми решениями:

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

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

Найти произведение всех целых чисел от -5 до B для 1<b<10
Найти произведение всех целых чисел от -5 до B для 1&lt;b&lt;10

Найти сумму всех чётных чисел от 1 до 100 включительно
Ребятушки, уж извините, не разбираюсь в программировании, но нужно решить задачу. Найти сумму...

7
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
14.12.2016, 08:55 2
Гульназз,
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program ab;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
VAR
a,b:Integer;
p:int64;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('a='); readln(a);
repeat
write('b>a,b='); readln(b);
until (a < b);
p:=1;
write('p=');
while a <= b do BEGIN
      if a=b then write(a) else write(a,'*'); 
      p := p * a;
      inc(a);
      End;
writeln('=',p);
readln;
end.
0
Миниатюры
Найти произведение всех целых чисел от A до B (включительно)  
Модератор
62261 / 46542 / 32085
Регистрация: 18.05.2008
Сообщений: 112,517
14.12.2016, 11:07 3
Нужно
с циклами, с кнопками
1
botsik
262 / 262 / 140
Регистрация: 05.06.2016
Сообщений: 1,247
Записей в блоге: 1
14.12.2016, 11:47 4
Лучший ответ Сообщение было отмечено Гульназз как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var a,b,p:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
p:=1;
repeat
p:=p*a;
inc(a);
until a=(b+1);
showmessage(inttostr(p));
end;
1
AHBAR
14.12.2016, 14:19
  #5

Не по теме:

переделать то не судьба точно так же как и нормально изложить ТЗ

0
0 / 0 / 0
Регистрация: 13.12.2016
Сообщений: 10
15.12.2016, 09:44  [ТС] 6
cfbogd, помогите пожалуйста!!!!! я две задачи еще выложила с кнопками связанные во вкладке Форум Delphi для начинающих . последние задачи осталось решить...и сегодня последний день((( очень сильно нуждаюсь в вашей помощи ваш код очень помог, все получилось в этой задаче
0
494 / 396 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
15.12.2016, 10:04 7
Цитата Сообщение от Гульназз Посмотреть сообщение
помогите пожалуйста!!!!! я две задачи еще выложила с кнопками связанные во вкладке Форум Delphi для начинающих . последние задачи осталось решить...и сегодня последний день((( очень сильно нуждаюсь в вашей помощи ваш код очень помог, все получилось в этой задаче
почему сразу не указываете, что "с кнопками нужно"
0
0 / 0 / 0
Регистрация: 13.12.2016
Сообщений: 10
15.12.2016, 10:36  [ТС] 8
извините пожалуйста, я думала там нет ничего кроме кнопок в основном
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.12.2016, 10:36

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана непустая последовательность ненулевых целых чисел. Найти произведение сумм чисел, равноудаленных от центра подпоследовательности
Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Найти произведение...

Найти произведение цифр четырехзначного числа (остаток от деления целых чисел)
Составить программы, используя указанные в скобках вспомогательные алгоритмы (вспомогательные...

Найти произведение всех чисел заданной строки
Задана строка, содержащая буквы и числа. Найти произведение всех чисел заданной строки. строки!!!

Найти произведение всех чисел, стоящих на местах кратных 4
Здравствуйте...может кто знает,как решить задачку на Delphi 7 Суть программы такова,надо найти...


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

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

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