Перевести с турбо паскаля в паскаль абс program - вопрос №83943281 от OtlicnikKZ1337 19.01.2022 06:53

Question

Информатика: Перевести с турбо паскаля в паскаль абс program z1; uses crt; type ttmas=array[1..1] of real; tmas=^ttmas; var a: tmas; n,i,j: integer; f: real; begin clrscr; write( размер массива n= ); readln (n); getmem(a,sizeof(ttmas)*n); writeln ( исходный массив: ); f: =1; for i: =1 to n do begin f: =f*i; a^[i]: =1/(f+1); writeln(a^[i]: 0: 10); end; freemem(a,sizeof(ttmas)*n); readln end.

OtlicnikKZ1337 · Answer

Program z1;type Tmas=array of real; var a:Tmas; n,i:integer; f:real; begin write( Размер массива n= ); readln (n); SetLength(a,n);writeln ( Исходный массив: ); f:=1; for i:=0 to n-1 do begin f:=f*(i+1); a[i]:=1/(f+1); writeln(a[i]:0:10); end; SetLength(a,0);end....