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

@hedzDM · Регистрация: 05.04.2011

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

@Ev[G]eN · 05.04.2011, 20:51

Pascal

var
 a, b, i: integer;
 pr: longint;
begin
 pr:=1;
 readln(a, b);
  if a<b then
   for i:=a to b do
    pr:=pr*i;
 write(pr);
end.

@hedzDM 0 / 0 / 0 Регистрация: 05.04.2011 Сообщений: 10
		1
	Найти произведение всех целых чисел от А до В включительно 05.04.2011, 09:49. Просмотров 1719. Ответов 1 Метки нет (Все метки) Задано два целых А и В . (А<В) найти произведение всех целых чисел от А до В включно. помогите сделать 0

Опции темы

Решение