Если х единица выводим x (на экране будет 1)
если x двойка выводим x+1 (на экране будет 2)
иначе читаем(вводим) m
конец.
1,5 и 4 потому что X и У не могут быть одинаковыми
Точка 100 200
начертите в право 4 клетки
начетите низ лево 1 клетку
начертите в лево 2 клетки
начертите вверх лево 1 клетку
дальше не знаю
Var
x,y:real;
Begin
writeln('Введи значение аргумента х: ');
readln(x);
if x<-5 then y:=x;
if x>-5 and x<5 then y:=abs(x+2);
if x>5 then y:=cos(x);
writeln('значение функции в точке равно ',y);
readln;
End.
Компьютер внес в текст много всего
например символы смайлы
¤♡♥€£¥₩%°•○●□■◇◆♧♣▲▼▶◀↑↓←→☆★▪:-);-):-D:'(:O также можно изменять текст и зачеркивать
в общем много всего