1. Вычислить значения функции

y={x2 +5, при x>3

      x-8, при x< =3

2. Написать фрагмент программ, подсчитывающий сумму только положительных из трех данных чисел

 

1)

varx:integer;y:real;beginwrite('x=');readln(x);if x>3 then y:=(x*2+5);if x<=3 then y:=x-8;writeln('y=',y);end.

2)

var s,a,b,c:real;beginwriteln('vvedite a,b,c');readln(a,b,c);s:=0;if a>0 then s:=s+a;if b>0 then s:=s+b;if c>0 then s:=s+c;write(s);end.