Вопрос по информатике:
Помогите с Pascal, 10 класс.
Найти максимальное число, среди четырёх. Задачу решить с помощью оператора IF. Числа вводятся с клавиатуры. Отдельную переменную для поиска максимального НЕ ВВОДИТЬ!
Пожаловаться
- 12.06.2018 05:25
- Информатика
- remove_red_eye 3299
- thumb_up 7
Ответы и объяснения 1
var a,b,c,d: integer;
begin
readln(a,b,c,d);
if (a>=b)and(a>=c)and(a>=d)
then writeln('max = ',a)
else if (b>=c)and(b>=d)
then writeln('max = ',b)
else if (c>=d) then writeln('max = ',c)
else writeln('max = ',d);
end.
Пример:
2 8 3 7
max = 8
begin
readln(a,b,c,d);
if (a>=b)and(a>=c)and(a>=d)
then writeln('max = ',a)
else if (b>=c)and(b>=d)
then writeln('max = ',b)
else if (c>=d) then writeln('max = ',c)
else writeln('max = ',d);
end.
Пример:
2 8 3 7
max = 8
Пожаловаться
- 13.06.2018 02:16
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы