Program pr;
var x:integer;y:real;
begin
write('X=');
readln(x);
y:=cos(2*x)+sin(x);
writeln('y=',y);
end.
Убрать у Ц хвостик, потом убрать у Ч (Согнутый хвостик) Добавить его в Ц, а потом уже добавить маленький хвостик)))
Відповідь:А нельзя просто нажать на кнопку "Вставить" и вибрать файл?
Пояснення:
Var a,b:real;
begin
write('вв числа a и b');
read(a,b);
if (a> -1) and (a<1) then writeln('a принадлежит промежутку') else writeln('a не принадлежит');
if (b>-1) and (b<1) then writeln(' b принадлежит') else writeln('b не принадлежит');
end.