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