Trololo4ko T Trololo4ko Регистрация 13 Дек 2012 Сообщения 83 Репутация 0 Спасибо 0 Монет 0 24 Ноя 2016 #1 Помогите решить задачу в языке программирования Paskal. Даётся 3 целых числа a,b,c надо вывести на екран максимум.
Помогите решить задачу в языке программирования Paskal. Даётся 3 целых числа a,b,c надо вывести на екран максимум.
игорьггг И игорьггг Регистрация 23 Окт 2013 Сообщения 90 Репутация 0 Спасибо 0 Монет 0 24 Ноя 2016 #2 Во-первых - Pascal var a,b,c:integer; begin 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>a then writeln(c); end. Позитивный голос 0
Во-первых - Pascal var a,b,c:integer; begin 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>a then writeln(c); end.
FuFeL F FuFeL Регистрация 16 Апр 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 24 Ноя 2016 #3 program maxiz3; var a,b,c : Integer; begin Readln(a,b,c); if a<b then a := b; if a<c then WriteLn(c) else Writeln(a); end. Позитивный голос 0
program maxiz3; var a,b,c : Integer; begin Readln(a,b,c); if a<b then a := b; if a<c then WriteLn(c) else Writeln(a); end.