crt;
var x,y: real;
begin write (‘введите x’);
readln(x);if x>0 then y:= x else y:=-x;
writeln(‘значение функции y=‘,y);
end.
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Email: Нажмите что бы посмотреть