Top.Mail.Ru
Ответы

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО ПРОШУ! НУЖНО НАПИСАТЬ ЛЮБОЕ ВЫРАЖЕНИЕ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ!

ПОМОГИТЕ ПОЖАЛУЙСТА ВЫБЕРИТЕ ЛЮБОЕ ВЫРАЖЕНИЕ И НАПИШИТЕ ПОДРОБНО НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ ПАСКАЛЬ ABC

По дате
По рейтингу
Аватар пользователя
123456789101112131415161718
 program Main; 
 
var 
  x: real; 
  result: real; 
 
begin 
  write('Введите значение x: '); 
  readln(x); 
 
  if (x >= -2.4) and (x <= 5.7) then 
    result := x 
  else 
    result := 4; 
 
  writeln('F(x) = ', result); 
end.