Написать программу нахождения разности произведения и суммы натурального ряда чисел от одного до n. На языке Pascal.
nastakudra44574:
Найти P-S, где Р это произведение, а S сумма!!!
не надо отдельно искать разность
произведение минус сумма
вот что мне надо
Ну я рад, необходимо изначально так писать. Я уже не буду исправлять, можете отмечать как нарушение.
даже если подумать, если бы надо было искать разность, я бы поставила запятую, после слова "разности"
Знаете сколько здесь неграмотных людей?)
Поэтому уже по привычке
Если я сделаю новый вопрос, ответите на него?
Ответы
Ответ дал:
0
- Program Brainly;
- Var I,N,S,R,P:integer;
- Begin
- Repeat
- Write('Введите число для натурального ряда:');
- Readln(N);
- Until N > 0;
- For I:= 1 to N do
- S:= S + I;
- Writeln('Сумма чисел:',S);
- P:= 1;
- For I:= 1 to N do
- P:= P * I;
- Writeln('Произведение чисел:',P);
- R:= P - S;
- Writeln('Разность чисел:',R);
- end.
Приложения:
Нужно произведение - сумма
https://znanija.com/task/40471862 помогите с информатикой пожалуйста 100б
Похожие вопросы
1 год назад
1 год назад
2 года назад
2 года назад
9 лет назад
9 лет назад