кейс программа

Ответ от Artem Winnik[гуру]
case a+b+c of 10,11,12:writeln (‘Вы можете быть зачислены на вечернее или заочное отделение’); 8,9:writeln (‘Вы можете быть зачислены на заочное отделение ’); 0..7:writeln (‘Извините, в приеме отказано. ’); else writeln (‘Вы можете быт

Ответ от Виктор[гуру]
program postuplenie; var a,b,c:integer; begin writeln ('vvedite ball po matematike'); readln (a); writeln (vvedite ball po russkomy'); readln (b); writeln ('vvedite ball po fizike'); readln (c); case a+b+c of 0.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]