Помогите найти ошибку, не понимаю вообще
Создать и законспектировать в тетрадь программу расшифровки названия специальности по введенному с клавиатуры коду. Подсказка: Используйте оператор CASE..OF
Создать и законспектировать в тетрадь программу расшифровки названия специальности по введенному с клавиатуры коду. Подсказка: Используйте оператор CASE..OF
More Questions From This User See All
Answers & Comments
Ответ:
У вас тип у T real, а CASE OF принимает integer или string. Нужно поменять на какой-то из них.
Объяснение:
upd:
program faso;
var T :real;
begin
readln (T);
if (T >= 12.04) AND (T <= 12.94) then
writeln ('3й Разряд')
Else if (T >= 0) AND (T < 12.04) then
writeln ('2й Разряд')
else
writeln ('Нужна еше тренировка');
end.