Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так

@vlad36 · Регистрация: 08.03.2013

Студворк — интернет-сервис помощи студентам

Даны Вещества. Числа : a, b, c. Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так. Нужно создать программу в PASCAL.

Новичок · 08.03.2013, 22:10

Сообщение от vlad36

Даны Вещества. Числа : a, b, c.

Вы имеете ввиду вещественные числа?

@vlad36 · 08.03.2013, 22:52 **[ТС]**

Да именно так

@ntrx · 09.03.2013, 02:45

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program dsf;
uses crt;
var a, b, c : real;
begin
     write('input a, b, c: ');
     readln(a,b,c);
     
     if (a < b) and (b < c) then begin
        a := 2*a;
        b := 2*b;
        c := 2*c;
     end
     else begin
         a := abs(a);
         b := abs(b);
         c := abs(c);
     end;
     writeln('a: ',a);
     writeln('b: ',b);
     writeln('c: ',c);
     
     readln;
end.

@vlad36 · 09.03.2013, 07:38 **[ТС]**

А тут пробелы стоят их обязательно писать?

@ntrx · 09.03.2013, 08:11

какие пробелы?

@vlad36 · 09.03.2013, 14:04 **[ТС]**

нет все в порядке я разобрался а номер строки указывать?

Добавлено через 3 часа 17 минут
А тут пустые строки их просто пропускать или что то в них вводить

@ntrx · 09.03.2013, 15:37

программа полностью готовая, и работоспособна по вашему требованию

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@vlad36 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 11

	Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так 08.03.2013, 21:55. Показов 5545. Ответов 7 Метки нет (Все метки) Даны Вещества. Числа : a, b, c. Удвоить эти числа, если a < b < c, и заменить их абсолютными значениями, если это не так. Нужно создать программу в PASCAL. 0

@vlad36 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 11
	08.03.2013, 22:52 [ТС]
	Да именно так 0

@vlad36 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 11
	09.03.2013, 07:38 [ТС]
	А тут пробелы стоят их обязательно писать? 0

@ntrx 124 / 123 / 83 Регистрация: 03.01.2013 Сообщений: 242
	09.03.2013, 08:11
	какие пробелы? 1

@vlad36 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 11
	09.03.2013, 14:04 [ТС]
	нет все в порядке я разобрался а номер строки указывать? Добавлено через 3 часа 17 минут А тут пустые строки их просто пропускать или что то в них вводить 0

@ntrx 124 / 123 / 83 Регистрация: 03.01.2013 Сообщений: 242
	09.03.2013, 15:37
	программа полностью готовая, и работоспособна по вашему требованию 0