Gavinrandis
4 год назад
Напишите программу в ABC Pascal.
ОТВЕТЫ
Kostadinka
Oct 24, 2020
var x,y: real;
begin
write('x = '); readln(x);
y:=0;
if x>1 then y:=x*x-sin(x*x*pi);
if (x>0) and (x<=1) then y:=x*x-x;
writeln('f(x) = ',y);
end.
begin
write('x = '); readln(x);
y:=0;
if x>1 then y:=x*x-sin(x*x*pi);
if (x>0) and (x<=1) then y:=x*x-x;
writeln('f(x) = ',y);
end.
600
Смежные вопросы: