Написать программу вычисления значения выражения у=2/х в паскале

219

380

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

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

Заяц699

Информатика

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

Var x,y: real; begin writeln('введите значение x: '); readln(x); y: =2/x; writeln('значение y: ',y); end.

aleksBRO

Информатика

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

Program fa; var x: real; begin read (x); writeln (2/x); end.

missdrama

Информатика

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

Uses crt; var e: array[1..3,1..7] of integer; s,max,n,m: integer; index,sum: integer; procedure max_el; begin max: =e[1,1]; sum: =0; index: =0; for n: =1 to 3 do begin for m: =1 to 7 do begin if e[n,m]> max then begin max: =e[n,m]; index: =m; end; end; end; for n: =1 to 3 do begin if e[n,index]< 0 then begin sum: =sum+e[n,index]; end; end; writeln('naibolwiy element = ',max,' summa otricatelnyh= ',sum); end; begin clrscr; writeln('elementy massiva'); writeln; randomize; for n: =1 to 3 do begin for m: =1 to 7 do begin e[n,m]: =random(100) -50; write('',e[n,m],' '); end; writeln; end; writeln; writeln; max_el; readkey; end .