Помогите с Pascal, 10 класс.
Найти максимальное число, среди четырёх. Задачу решить с помощью оператора IF. Числа вводятся с клавиатуры. Отдельную переменную для поиска максимального НЕ ВВОДИТЬ!
Ответы
Ответ дал:
0
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
Ответ дал:
0
Если будет 2 одинаковых числа например ( 6 6 5 1). То выдаст 1
Ответ дал:
0
ВинСагит, а ничего, что там в первой строке написано "Предполагается, что вводимые числа различны." ?
Ответ дал:
0
После вот такого: "Я просто случайно отметил, даже решение не посмотрел... " даже и сказать нечего.
Ответ дал:
0
Да все понятно: знания языка нулевые, увидел под выводом литерал "max=" и заявил, что это "лишняя переменная".
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад