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

@ЛебедЕв · Регистрация: 05.12.2013

Author24 — интернет-сервис помощи студентам

Надо сделать используя if,then,else я сделал так

Pascal

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 способами,проблема в том что наибольшее не выводится.

@Puporev · 06.12.2013, 09:44

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.

@ЛебедЕв · 06.12.2013, 11:09 **[ТС]**

Спасибо.Работает.Можно закрывать.

@ЛебедЕв 1 / 1 / 0 Регистрация: 05.12.2013 Сообщений: 23
	06.12.2013, 11:09 [ТС]	3
	Спасибо.Работает.Можно закрывать. 0