КОМПЬЮТЕР Ақпаратты сақтау
Ақпаратты өңдеу
Енгізу құрылғысы
Ақпаратты қабылдау
Ақпаратты жіберу
Сөз, қозғалтқыш
жүйелері

217

485

Посмотреть ответы 1

Ответы на вопрос:

Chirtulova228

Информатика

4,6(8 оценок)

Program qwr; uses crt; var f : real; i : byte; z,a : array [0..3] of real; begin for i: =1 to 3 do begin write('z[ ',i,']= '); readln(z[i]); end; for i: =1 to 3 do begin write('a[ ',i,']= '); readln(a[i]); end; writeln(' '); writeln(' z[i] | a[i] | f '); for i: =1 to 3 do begin f: =exp(ln(z[i]+a[i])*(3/2)); writeln(' ',z[i]: (3),' | ',a[i]: (3),' | ',f: (3): (2)); end; writeln(' ||'); end.