Предмет: Информатика, автор: theporest

Составьте программу паскаль, которая определяет значение функции y=|x|.
То есть вводишь y и она (программа) должна показать значение |x|.


SmartCin4376: var
y:longint;
begin
read(y);
SmartCin4376: сейчас допишу
SmartCin4376: var
y:longint;
begin
read(y);
if y <= 0 then
writeln('Error');
if y > 0 then
writeln(y);
end.
SmartCin4376: y < 0 надо
SmartCin4376: y >=0 , а то перепутал
SmartCin4376: нормально?
theporest: Программа пишет : Не могу получить доступ к файлу 'С:\WINDOWS\System32\Program2.exe'
theporest: Другие программы работают нормально
theporest: Уже нормально
SmartCin4376: ок

Ответы

Автор ответа: Аноним
0
PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  Abs(ReadReal).Println
end.
Похожие вопросы
Предмет: Українська література, автор: Maksim777666
Предмет: Математика, автор: Dankor03