ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 2066. Простое выражение

Wrong answer help me pls Pascal
Послано Levchuk 18 сен 2017 19:22
var
a,b,c,s: longint;
begin
 readln(a,b,c);
 if (a > b) or (a > c) then
   if (b > c) then s:= c - a * b
    else
      s:= b - a * c;
 if (b > a) or (b > c) then
   if a > c then s:= c - a * b
    else
    s:= a - b * c;
  if (c > a) or (c > b) then
   if a > b then s:= b - a * c
    else
     s:=a - b * c;
 writeln(s);
end.