помогите написать вторую програмку в паскале, условие ниже. Заранее спасибо) Очень нужно)

Компьютеры программирование программы Образование паскаль

http://cs301508.userapi.com/v301508275/4644/Q2O1BVcBqKs.jpg
Ответы:
Я напишу без интерфейса, только алгоритм... Объявление и считывание исходных данных, думаю, сам напишешь...
if (x<0) then
 y:=-x
else
begin
  if (x>=0) and (x<=1) then
    y:=x
  else
    begin
      if (x>1) and (x<=3) then
         y:=1
      else
        begin
           if (x>3) then
             y:=sqr(x);
        end;
    end;
end;


12 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.