|
Вопрос # 5 678/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!И вот 2 и последняя задачка на сегодня помогите пожалуйста решить: Вычислите сумму S и произведение P всех целых чисел от N1 до N2. Пример: для N1=3, N2=7 получим S=25, P=2520.Заранее спасибо!)
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 15 октября 2011, 12:33; участников в обсуждении: 3.
|
puporev (статус: 2-ой класс), 15 октября 2011, 09:20 [#1]:
var n1,n2,i,s:integer;
p:real;//произведение может быть больше макс. значения типа integer
begin
writeln('Введите интервал целых чисел n1<n2:');
readln(n1,n2);
s:=0;
p:=1;
for i:=n1 to n2 do
begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма=',s);
write('Произведение=',p:0:0);
end.
|
|
Кузнецов Константин Сергеевич (статус: Посетитель), 15 октября 2011, 09:31 [#2]:
Вооо спасибо, понял, а то все не доходило как составить то саму программу)
|
|
Толяныч (статус: 4-ый класс), 15 октября 2011, 12:33 [#3]:
Ну, началось !
"Помогите" - это значит "сделайте за меня". Хоть бы элементарное собственное телодвижение имелось, хоть бы Begin ... end. А уж потом "вот в этом месте у меня не катит" - тогда почему бы и не помочь. Ну "помогли", сдал зачет, а толку - если знаний 0 ?
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
