Пожаловаться
- 07.02.2018 15:39
- Информатика
- remove_red_eye 16524
- thumb_up 50
Ответы и объяснения 1
Var
a, b, c, d: integer;
begin
Readln(a, b, c);
if a > b then
if a > c then d := a
else d := c
else
if b > c then d := b
else d := c;
Writeln(d);
end.
a, b, c, d: integer;
begin
Readln(a, b, c);
if a > b then
if a > c then d := a
else d := c
else
if b > c then d := b
else d := c;
Writeln(d);
end.
Пожаловаться
- 08.02.2018 03:28
- thumb_up 3
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы