Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
S = 4
s = s * 2 (for k :=13 to 20 - параметр цикла)
k = 13 s = 4 * 2 = 8
k = 14 s = 8 * 2 = 16
k = 15 s = 16 * 2 = 32
k = 16 s = 32 * 2 = 64
k = 17 s = 64 * 2 = 128
k = 18 s = 128 * 2 = 256
k = 19 s = 256 * 2 = 512
k = 20 s = 512 * 2 = 1024
Ответ: 1024
#include <iostream>
using namespace std;
int main(){
cout << "Enter n: ";
int n;
cin >> n;
double p = 1;
for(int i = 2; i<n; i++){
p *= ((double)i)/(i+1.0);
}
cout << ''Result is: " << p << endl;
}
Как-то так, программу не компилировал, могут быть незначительные синтаксические ошибки, но основной алгоритм такой.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var n:=ReadInteger('n=');
n.Step(n).TakeWhile(x->x<=50).Println
end.