Автор Администратор задал вопрос в разделе Другие языки и технологии
напишите программу нахождения наибольшего из трех чисел!(паскаль) и получил лучший ответ
Ответ от Alexandr Shgmatko[активный]
Всего лишь? Может ещё что-то?
Ответ от Ёимон Сукиасян[гуру]
var a, b, c, max: longint; begin readln(a, b, c); max:=a; if b > max then max:=b; if c > max then max:=c; writeln(max); readln; end a, b, c - наши числа max - максимальный Вводим три числа,
var a, b, c, max: longint; begin readln(a, b, c); max:=a; if b > max then max:=b; if c > max then max:=c; writeln(max); readln; end a, b, c - наши числа max - максимальный Вводим три числа,
Ответ от Lavelas 745[новичек]
var a,b,c : real; begin WriteLn ('введите a,b,c '); ReadLn (a,b,c); if (a>b) and (b>c) then WriteLn ('a') else if (b> a) and (a>c) then WriteLn ('b') else writeLn ('c'); end.
var a,b,c : real; begin WriteLn ('введите a,b,c '); ReadLn (a,b,c); if (a>b) and (b>c) then WriteLn ('a') else if (b> a) and (a>c) then WriteLn ('b') else writeLn ('c'); end.
Ответ от Константин Тарасенко[новичек]
var a,b,c,max:integer;begin read(a,b,c); if a > b then max:=a else max:=b; if max > c then write(max) else write(c);end.
var a,b,c,max:integer;begin read(a,b,c); if a > b then max:=a else max:=b; if max > c then write(max) else write(c);end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: напишите программу нахождения наибольшего из трех чисел!(паскаль)