Даны три числа а,б,с найти наибольшее и вывести на экран - Turbo Pascal

Формулировка задачи:

Надо сделать используя if,then,else я сделал так
PROGRAM naibolshee;
Uses crt;
Var a,b,c: read;
BEGIN
Clrscr;
read (a,b,c)
if (a>b) and (a>c) then
begin
writeln ('naibolshee a=',a);
end
else 
if (b>a) and (b>c) then
begin
writeln ('naibolshee b=',b);
end
else
if (c>a) and (c>b) then
begin 
writeln('naibolshee c=',c);
end
end.
Пробовал уже 2-3 способами,проблема в том что наибольшее не выводится.


textual

Код к задаче: «Даны три числа а,б,с найти наибольшее и вывести на экран - Turbo Pascal»

PROGRAM naibolshee;
Uses crt;
Var a,b,c,mx: real;
BEGIN
Clrscr;
readln (a,b,c);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
writeln('naibolshee=',mx);
readkey
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 3.867 из 5

Источник