Задания.ру
Анонимно
3 часа назад

Помогите пожалуйста! Срочно надо написать программу в паскале. Задание: Введите три трёхзначных числа. Найти разность между наибольшим м наименьшим. Заранее спасибо!

Ответ

Анонимно
begin
  var a, b, c: single;
  readln(a, b, c);
  writeln(max(a, max(b, c)) - min(a, min(b, c)));
end.

Позязя, расширеннее...
begin
  var a, b, c, d, e: single;
  readln(a, b, c);
  if (a < b) then
    d := a
  else
    d := b;
  if (c < d) then
    d := c;
  if (a > b) then
    e := a
  else
    e := b;
  if (c > e) then
    e := c;
    writeln(e - d);
end.

Новые вопросы по Информатике

Чему будет равен Х? При необходимости округлить до сотых. Ход перевода указать! 1) 1,5 Гбайт = Х Мбит 2) 0,75 Гбит = Х Мбайт 3) 520465585210 бит = Х Гбайт 4) 12288 бит = Х Кбайт 5) 0,0008 Гбайт =...
5 - 9 классы
2 минуты назад
Для чего используется границы в таблице excel
5 - 9 классы
4 минуты назад
Кто занимается программированием? А именно курс С++? Если найдутся такие, то помогите пожалуйста с заданием: 2.8. Инициалы Написать программу, которая запрашивает фамилию, имя и отчество, а выводи...
5 - 9 классы
4 минуты назад
Помогите пожалуйста!!! Составьте программу, которая позволяет получить из слов "программирование" слова "программа" и "мир" путём удаления символов.
5 - 9 классы
5 минут назад
19. Какое действие нельзя выполнить с объектом операционной системы Windows?
5 - 9 классы
13 минут назад