29.05.2011, 12:32 | #1 (permalink) |
Member
Регистрация: 28.05.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачка по Паскалю
помогите, если не сложно. Заранее спасибо |
29.05.2011, 12:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме найдено несколько совпадений Задача по Паскалю, файл Задачка по Паскалю для истинных профессионалов в этом деле. Помогите с решением! |
29.05.2011, 22:51 | #5 (permalink) |
Member
Регистрация: 28.05.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
всех чётных чисел. опечатка вышла...
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
29.05.2011, 23:07 | #7 (permalink) |
Member
Регистрация: 28.05.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
мне кажется что n и m вводятся (к примеру 3 и 7) и программа должна сосчитать факториалы 4 и 6 . А так он считает факториалы всех чётных чисел от 1 до 8
|
30.05.2011, 08:37 | #8 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Код:
readln(n,m); s:=0; while n<=m do begin if n mod 2=0 then begin {если четное то начинаем считать} f:=1; for j:=1 to i do {в цикле считаем факториал} f:=f*j; s:=s+f; {суммируем} end; {if} inc(n); end;{while}
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|