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

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

x-8, при x< =3

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

1

Ответы и объяснения

2013-05-08T18:55:40+04:00

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.