В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
korzhek05
korzhek05
23.01.2021 16:38 •  Информатика

Pascal. даны три переменные вещественного типа: a, b, c. если их значения упо- по возрастанию или убыванию, то удвоить их; в противном слу- чае заменить значение каждой переменной на противоположное. вывести новые значения переменных a, b, c.

Показать ответ
Ответ:
ЯнаКиска
ЯнаКиска
08.07.2020 13:42
Var
  a, b, c: real;

begin
  Write('Введите через пробел три числа -> ');
  Readln(a, b, c);
  if ((a > b) and (b > c)) or ((a < b) and (b < c)) then
  begin a := 2 * a; b := 2 * b; c := 2 * c end
  else
  begin a := -a; b := -b; c := -c end;
  writeln('Новые значения чисел: ', a, ', ', b, ', ', c)
end.

Тестовое решение:

Введите через пробел три числа -> 18 5 -3
Новые значения чисел: 36, 10, -6

Введите через пробел три числа -> -6 0 5
Новые значения чисел: -12, 0, 10

Введите через пробел три числа -> 11 20.7 4.9
Новые значения чисел: -11, -20.7, -4.9
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота