Ответы
Ответ дал:
1
- uses Math;
- var
- S: real;
- N, i: byte;
- begin
- Write('Введите N: ');
- Read(N);
- for i := 1 to N do
- S := S + Power(2.0, i);
- Writeln('S = ', S);
- end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад