Задание:
Составить программу в паскале, позволяющую получить словесное описание школьных отметок: 1-плохо 2-не удовлетворительно 3-удовлетворительно 4-хорошо 5-отлично
Решение:
program OCEHKA; uses crt; var a,b: integer; fign: boolean; s: string; beginfign: =false; write ('Введите оценку- '); ReadLn (a); b: =a; case b of1: s: ='Плохо'; 2: s: ='Неудовлетворительно'; 3: s: ='Удовлетворительно'; 4: s: ='Хорошо'; 5: s: ='Отлично'; end; WriteLn (s); ReadLn (s); end. Жду спасибо и лучший ответ)
Знаете другой ответ?