Найдите сторону ромба, высота которого равна 4,5 см, а площадь – 27 см2. ответ дайте в сантиметрах.

114

281

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

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

эдвард20

Информатика

4,5(89 оценок)

1)var x,s: real; i: integer; begin s: =0; for i: =1 to 10 do begin readln(x); if x > 10 then s: =s+x; end; write(s); readln end. 2)var p: longint; x,i: integer; begin p: =1; for i: = 1 to 10 do begin readln(x); if (x div 100 = 0) and (x mod 2 < > 0) then p: =p*x; end; write(p); readln end. 3)var i; n; kp; ko; integer; x: real; begin readln(n); kp: =0; ko: =0; for i: = 1 to n do begin readln(x); if x > 0 then kp: =kp+1 else ko: =ko+1; end; write('положительных',kp,'отрицательных',ko); readln end.