1. Информатика
  2. даны 2 числа. удвоить каждое

даны 2 числа. удвоить каждое из них, если первое число не меньше второго и заменить числа их модулями в противном случае( ПАСКАЛЬ)

НикаКолядина2000 НикаКолядина2000    2   17.02.2021 13:24    1

Ответы
7Оля8 7Оля8  17.02.2021 13:30

var

a,b : real;

begin

readln(a,b);

if a >= b then

begin

a := a * 2;

b := b * 2;

end

else

begin

a := abs(a);

b:= abs(b);

end;

writeln(a:5:2,b:5:2);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Единорог20001 Единорог20001  20.10.2021 00:42
1 Задание 8 В языке запросов поискового сервера для обозначения логической операции «ИЛИ» используется символ «|», а для обозначения логической операции «И» — символ «&». В...
aresha134589870 aresha134589870  20.10.2021 00:44
На языке Си написать функцию (void FillDecr( float *a, int n )), заполняющую массив числами по убыванию. FillDecr() аналогична функции, которая заполняет массив числами по возрастанию:...
robka2029 robka2029  20.10.2021 00:45
Сколько симлов содержит сообщения записанные с 128 символов алфавита если объем этого сообщения состовляет 48 Кбайт...
Anonim4ka Anonim4ka  18.09.2019 17:00
Какие действия вы бы добавили, чтобы был выполним следующий алгоритм переправы через волгу в районе г. саратова: код: подойти к реке. войти в реку. идти по дну, пока не выйдешь...
JlunaJlove JlunaJlove  18.09.2019 17:00
Сколько бит памяти требуется для хранения одного цвета в чёрно-белом изображении ?...
tanya596 tanya596  19.05.2019 12:30
Менеджеру по продажам приказали разбить все отремонтированные машины на 2 группы. но, к сожалению, не сказали какие из машин были отремонтированы и сколько в какой группе должно...
Kikookiko Kikookiko  18.07.2019 21:10
Задайте двумерный массив размерности 3х3. выведите массив в виде матрицы. найдите сумму четных элементов второй строки....
ZakuroElric ZakuroElric  18.07.2019 21:10
Выберите верное соотношение а) 1 кбайт = 1024 мбайт б) 1 гбайт = 1024 кбайт с) 1 тбайт = 1024 гбайт д) 1 мбайт = 1024 байт 2емкость usb-флешки 256 мбайт. какова емкость usb-флешки...
4fhfhiukhriu 4fhfhiukhriu  18.07.2019 21:10
Дан одномерный массив заполните его симвлами...
балнур6 балнур6  18.07.2019 21:10
Всекцию бокса принимаются мальчики, возраст которых не менее 12-ти лет.составить алгоритм приёма мальчиков в секцию бокса....

Популярные вопросы