Срочно! Помогите !!!!!

Question

Срочно! Помогите !!!!!

---

Answer 1

Ответ:

pascal

Объяснение:

1)

var

a, b, c, k: integer;

begin

Write('Введите числа a, b и с: ');

ReadLn(a, b, c);

if a > 0 then inc(k);  

if b > 0 then inc(k);  

if c > 0 then inc(k);  

WriteLn('Положительных чисел - ', k);

end.

2)

var

 z, a: real;

begin

 Write('Введите число a: ');

 ReadLn(a);

 if a >= 0 then

   z := sqr(a)*a + sqrt(a) - 2*a

 else

   z := 2 / a;

 WriteLn('z(',a,')=',z);

end.