Program mass; Uses Crt; Var x,y,z,a: array [1..5] of real; i:byte;b,bi:real; Begin ClrScr; b:=0; For i :=1 to 5 do begin write ('x',i,'='); readln(x[i]); end; writeln; For i :=1 to 5 do begin write ('y',i,'='); readln(y[i]); end; writeln; For i :=1 to 5 do begin write ('z',i,'='); readln(z[i]); end; writeln; For i :=1 to 5 do begin a[i]:=sqrt(abs(x[i]*y[i]*z[i])); writeln('a' , i ,'=',a[i]:5:2); end; writeln; For i :=1 to 5 do begin bi:=sqr(x[i]-y[i]); b:=b+bi; end; writeln('b=',b:5:2); end.
Информация-любые сведения об окружающем мире, полученные с помощью органов чувств. Теория информации - раздел, занимающийся вопросами хранения, обработки и передачи информации.алгоритм-план. 4 и 5 не знаю:С
begin readln(x); write('y = '); if (x < -7) then write(7) else if (x < 0) then write(-x) else if (x <= 5) then writeln(x) else write(5); <span>end.</span>
Программа на паскале (программа - это один из способов записи алгоритма). var n,p,i:integer; begin write('n = '); readln(n); p:=1; for i:=1 to n do p:=p*i; writeln('p = ',p); end.