Помогите с информатикой! Нужно составить функцию. Ругается программа, не могу найти ошибку(
"Составить функцию, которая определяет наибольшее из трех чисел"
function max (a,b,c:integer): integer;
var x: integer;
begin
writeln ('Введите три числа');
read (a,b,c);
if a>b then x:=a
else x:=b;
if b>c then x:=b
else x:=c;
Max:=x;
writeln ('Наибольшее число ',x);
end;
Ошибка: Встречен конец файла, а ожидалось Begin
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
8 лет назад