Перевести код из паскаля в 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.
#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.
Корпоративные требования к почтовой перепискеписьмо состоит из трех частей1. Обращение2. текст письма3. Подпись4. исполнитель или сотрудник для связи с полными координатами(адреса: почтовый,E-mail, IСQ,телефон) Сетевой этикет Сетево́й этике́т (сетикет, нетикет — неологизм, является слиянием слов «сеть» (англ. net) и «этикет») — правила поведения, общения в Сети, традиции и культура интернет-сообщества, которых придерживается большинство. Это понятие появилось в середине 80-х годов XX века в эхоконференциях сети FIDO. Некоторые из правил сетевого этикета присутствуют в RFC 1855 (английский вариант). Правила этикета не являются всеобщими и жестко установленными — в разных сообществах они могут значительно различаться. Так как основная цель этикета состоит в том, чтобы не затруднять общение в сообществе, правила могут устанавливаться исходя из целей сообщества, принятого стиля общения, технических ограничений, и т. д. Некоторые правила записаны, и даже оформляются в виде формального устава, а иногда и просто в виде списка, другие правила нигде не записаны, но известны большинству членов сообщества и строго соблюдаются.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print end.
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.