Перевести с Паскаля на С++ var s, p: longint; i, j, n: integer;
begin Write('Введите n: '); Readln(n); s := 0; for i := 1 to n do begin p := 1; for j := i to 2 * i do p := p * j; s := s + p end; Writeln('Сумма равна ', s) end.
1) const n = 10; var a : array [1..n] of integer; i : integer; begin randomize; for i := 1 to n do begin a[i] := 22 + random(114); if a[i] > 100 then writeln (a[i]); end; end.
2) var a,n,r,i : integer; begin r := 1; readln (a,n); for i := 1 to n do r := r * a; writeln (r); end.
3)
var n,i,r : integer; begin r := 1; readln (n); for i := 1 to n do r := r *i; writeln (r); end.
4) var i : integer; begin for i := 192 to 223 do write(chr(i); ,' '); end.
5) var i : integer; begin for i := 255 downto 240 do write (chr(i),' '); writeln(); for i := 239 downto 224 do write (chr(i),' '); end.
7) var i : integer; begin for i := 122 downto 97 do writeln(chr(i)); end.
Var a:array[1..5,1..7] of integer; i,j,kolpol,kolotr:integer; respol,resotr:real; begin for j:=1 to 7 do begin for i:=1 to 5 do begin a[i,j]:=random(-50,50); write(a[i,j]:4); end; writeln(); end; for i:=1 to 5 do begin respol:=0; resotr:=0; kolpol:=0; kolotr:=0; for j:=1 to 7 do begin if a[i,j]>0 then begin respol+=a[i,j]; kolpol+=1; end else if a[i,j]<0 then begin resotr+=a[i,j]; kolotr+=1; end; end; writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol); writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr); end; end.
#include <iostream>
using namespace std;
int main() {
long int p,s;
int i,j,n;
s = 0;
cout << "Введите n: " << endl;
cin >> n;
for(i = 1; i<=n;i++){
p = 1;
for(j = i; j<=2*i;j++){
p*=j;
}
s+=p;
}
cout << "Сумма равна " << s << endl;
}