1. Вычислить значения функции y={x2 +5, при x больше 3 x-8, при x меньше =3 2. Написать фрагмент программ, подсчитывающий сумму только положительных из трех данных чисел
1. Вычислить значения функции y={x2 +5, при x>3 x-8, при x< =3 2. Написать фрагмент программ, подсчитывающий сумму только положительных из трех данных чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы