Код на c++ перевести в паскаль. заранее большое #include using namespace std; main() { int a[1001],i,n,l,r,k; - id41819820200413 от Glebforst 13.04.2020 12:53

Question

Информатика: Код на c++ перевести в паскаль. заранее большое #include using namespace std; main() { int a[1001],i,n,l,r,k; cin n; for(i=1; i =n; i++) cin a[i]; cin l r; k=l; for(i=l+1; i =r; i++) if(a[i] a[k])k=i; cout }

Glebforst · Accepted Answer

1. Школьное решение function f(n:integer):real; var   p:real;   i:integer; begin   p:=1;   for i:=1 to n do p:=p*i;   f:=p end; var   x,y,z:integer;   begin   Write( Введите x,y,z через пробел: );   Read(x,y,z);   Writeln((f(x)+f(y))*f(z)) end. Примеры Введите x,y,z через пробел: 8 12 5 57485030400 Введите x,y,z через пробел: 23 15 41 8.64815278005251E+71 2. Современное решение // PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию! begin   var f:integer-...

Код на c++ перевести в паскаль. заранее большое #include using namespace std; main() { int a[1001],i,n,l,r,k; cin> > n; for(i=1; i< =n; i++) cin> > a[i]; cin> > l> > r; k=l; for(i=l+1; i< =r; i++) if(a[i]> a[k])k=i; cout< }

MOGZ ответил