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

@Dimka21905 · Регистрация: 04.10.2010

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

@iama · 04.10.2010, 21:09

Pascal

var a, b, i, s: longint;
begin
readln(a, b);
s := 1;
if a < b then 
  for i := a to b do 
    s := s * i
else s := 0;
writeln(s);
readln;
end.

@Dimka21905 · 04.10.2010, 21:33 **[ТС]**

блок схему плиз

@iama · 04.10.2010, 21:36

и два ковша борщу

@Dimka21905 · 04.10.2010, 21:42 **[ТС]**

ну плиз оч надо у мя прост не оч со схемами

@iama · 04.10.2010, 21:43

еще скажи, что ты в этом хоть немного разбираешься

@Dimka21905 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 10
		1
	Найти произведение всех целых чисел от А до В включительно 04.10.2010, 21:01. Просмотров 1849. Ответов 5 Метки нет (Все метки) даны 2 целых числа А и В (А<В). найти произведение всех целых чисел от А до В включительно. 0

@Dimka21905 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 10
	04.10.2010, 21:33 [ТС]	3
	блок схему плиз 0

@Dimka21905 0 / 0 / 0 Регистрация: 04.10.2010 Сообщений: 10
	04.10.2010, 21:42 [ТС]	5
	ну плиз оч надо у мя прост не оч со схемами 0

@iama 1334 / 985 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	04.10.2010, 21:43	6
	еще скажи, что ты в этом хоть немного разбираешься 0

Опции темы

Решение