Светлана
4 год назад
Написать программу нахождения разности произведения и суммы натурального ряда чисел от одного до n. На языке Pascal.
ОТВЕТЫ
Антон
Nov 28, 2020
- Var
- i, N, S, R, P:integer;
- Begin
- Repeat
- Write('N: = ');
- Readln(N);
- until N>0;
- S:= 0;
- for i:= 1 to n do
- S:= S + i;
- Writeln('Сумма:', S);
- R:= 0;
- R:= R - i;
- Writeln('Разность:', R);
- P:= 0;
- P:= P * i;
- Writeln('Произведение:', P);
- end.
342
Смежные вопросы:
