Question

1. вычислить значения функции y={x2 +5, при x> 3 x-8, при x< =3 2. написать фрагмент программ, подсчитывающий сумму только положительных из трех данных чисел

Answer 1

1)

var
x:integer;
y:real;
begin
write('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;
begin
writeln('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.