Д Данил174рус Регистрация 15 Авг 2013 Сообщения 78 Репутация 0 Спасибо 0 Монет 0 14 Окт 2019 #1 program sr; Var a,b,c:Integer; begin a:=1; b:=20; case (a > b) of true : WriteLn('a > b'); else WriteLn('a < b'); end.
program sr; Var a,b,c:Integer; begin a:=1; b:=20; case (a > b) of true : WriteLn('a > b'); else WriteLn('a < b'); end.
N noo Регистрация 30 Июл 2013 Сообщения 77 Репутация 0 Спасибо 0 Монет 0 14 Окт 2019 #2 У вас оператор CASE не завершен. Добавьте end; перед end. Позитивный голос 0
М максиммммммммммммммм Регистрация 26 Дек 2013 Сообщения 81 Репутация 0 Спасибо 0 Монет 0 15 Окт 2019 #3 Если паскаль пишет, что нет end, значит его действительно нет. Позитивный голос 0
Д денис5777 Регистрация 27 Ноя 2013 Сообщения 68 Репутация 0 Спасибо 0 Монет 0 15 Окт 2019 #4 помоему точка не нужна Позитивный голос 0
P paxa908 Регистрация 11 Июн 2013 Сообщения 89 Репутация 19 Спасибо 1 Монет 0 16 Окт 2019 #5 пробел до точки... поставь Позитивный голос 0