Question

Перевести код из паскаля в C++ или С#. program z3_31; uses crt; var j,i,n:integer; s,p :Longint; Begin ClrScr; Write('n<8, n='); Read(n); For i:=1 to n do begin p:=1; For j:=i to 2*i do p:=p*j; s:=s+p; end; write('s=',s); Readkey; end.

Answer 1

#include <iostream>
using namespace std;
void main(){
int n;
long int s=0,p;
cout<<"n<8, n = ";cin>>n;
for(int i=1;i<n;i++){
p=1;
for(int j=i;j<2*i;j++)
p*=j;
s+=p;
}
cout<<"s = "<<s<<endl;
system("pause");
}
У Вас нигде не инициализирована переменная s, поэтому я ее задал равной 0. 

Answer 2

Код на Pascal: ``` program z3_31; uses crt; var j, i, n: integer; s, p: Longint;

begin ClrScr; Write('n<8, n='); Read(n); For i:=1 to n do begin p := 1; For j:=i to 2*i do p := p * j; s := s + p; end; write('s=',s); Readkey; end. ```

Перевод на C#: ```csharp using System;

namespace z3_31 { class Program { static void Main(string[] args) { int j, i, n; long s, p; Console.Clear(); Console.Write("n<8, n="); n = Convert.ToInt32(Console.ReadLine()); for (i = 1; i <= n; i++) { p = 1; for (j = i; j <= 2 * i; j++) { p = p * j; } s = s + p; } Console.Write("s=" + s); Console.ReadKey(); } } } ```

Перевод на C++: ```cpp #include using namespace std;

int main() { int j, i, n; long s, p; system("cls"); cout << "n<8, n="; cin >> n; for (i = 1; i <= n; i++) { p = 1; for (j = i; j <= 2 * i; j++) { p = p * j; } s = s + p; } cout << "s=" << s; cin.ignore(); cin.get(); return 0; } ```

Обратите внимание, что в C++ коде использована функция `system("cls")`, которая очищает экран консоли. Это эквивалент функции `ClrScr()` в Pascal и `Console.Clear()` в C#.