Предмет: Информатика,
автор: nadiabaranova0
Срочнооооо
Паскаль
Можно ток одно задание
Приложения:
Osmanniyazoff:
если баллов хотя-бы 20 будет решу
Будет решил пж
ок,поверю
Напиши хотя б второе
делаю
Напиш. Просто второе и все пж быстрее
где мои баллы?
Ответы
Автор ответа:
0
второе задание
program example2;
var x,y:real;
begin
WriteLn('x=');
readln(x);
if x>=-10 then
y:= sqr(x) + 9
else if x<-10 then
y:= 1/sqr(x)-4;
writeln('y=',y);
end.
первое задание
program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.
program example2;
var x,y:real;
begin
WriteLn('x=');
readln(x);
if x>=-10 then
y:= sqr(x) + 9
else if x<-10 then
y:= 1/sqr(x)-4;
writeln('y=',y);
end.
первое задание
program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.
вот первое program example1;
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.
var x,y:real;
begin
WriteLn('x=');
readln(x);
y:=abs(sqr(x)-sqrt(x+3)) + cos(x)/2*x+1;
writeln('y= ', y);
end.
Похожие вопросы
Предмет: Русский язык,
автор: verasarapul201123
Предмет: Математика,
автор: qgx7sbh5vg
Предмет: Алгебра,
автор: uslavasam
Предмет: Математика,
автор: ivaxnenko2004