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

@Гульназз · Регистрация: 13.12.2016

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

по теме циклов должно быть и можете пожалуйста скрин сработающего кода отправить.

@AHBAR · 14.12.2016, 08:55

Гульназз,

Delphi

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.

@Puporev · 14.12.2016, 11:07

Нужно

с циклами, с кнопками

@cfbogd · 14.12.2016, 11:47

Delphi

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;

@AHBAR · 14.12.2016, 14:19

Не по теме:

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

@Гульназз · 15.12.2016, 09:44 **[ТС]**

cfbogd, помогите пожалуйста!!!!! я две задачи еще выложила с кнопками связанные во вкладке Форум Delphi для начинающих . последние задачи осталось решить...и сегодня последний день((( очень сильно нуждаюсь в вашей помощи ваш код очень помог, все получилось в этой задаче

@AHBAR · 15.12.2016, 10:04

Сообщение от Гульназз

помогите пожалуйста!!!!! я две задачи еще выложила с кнопками связанные во вкладке Форум Delphi для начинающих . последние задачи осталось решить...и сегодня последний день((( очень сильно нуждаюсь в вашей помощи ваш код очень помог, все получилось в этой задаче

почему сразу не указываете, что "с кнопками нужно"

@Гульназз · 15.12.2016, 10:36 **[ТС]**

извините пожалуйста, я думала там нет ничего кроме кнопок в основном

@Гульназз 0 / 0 / 0 Регистрация: 13.12.2016 Сообщений: 10
		1
	Найти произведение всех целых чисел от A до B (включительно) 13.12.2016, 19:29. Просмотров 1674. Ответов 7 Метки нет (Все метки) Даны два целых числа A и B (A<B). Найти произведение всех целых чисел от A до B (включительно) по теме циклов должно быть и можете пожалуйста скрин сработающего кода отправить. 0

@Puporev Модератор 62261 / 46542 / 32085 Регистрация: 18.05.2008 Сообщений: 112,517
	14.12.2016, 11:07	3
	Нужно с циклами, с кнопками 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

@AHBAR 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

Опции темы

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

Решение