var a,b,c: integer;
begin
writeln('Введите три числа через пробел:');
readln (a,b,c);
if (a>b) and (a>c) then writeln (a, ' ', '- наибольшее')
else
if (b>a) and (b>c) then writeln (b, ' ', '- наибольшее')
if (c>a) and (c>b) then writeln (c, ' ', '- наибольшее');
end.
Поделитесь своими знаниями, ответьте на вопрос:
Пользователь вводит три числа. Вывести наибольшее из них. Введите число : 1 Введите число : 2Введите число : 3Найбольшее : 3
var a,b,c: integer;
begin
writeln('Введите три числа через пробел:');
readln (a,b,c);
if (a>b) and (a>c) then writeln (a, ' ', '- наибольшее')
else
if (b>a) and (b>c) then writeln (b, ' ', '- наибольшее')
else
if (c>a) and (c>b) then writeln (c, ' ', '- наибольшее');
end.