Задана следующая шкала эффективности внедрения технологий (%). 0-10 - невысокая; 11-25 - средняя; 26-50 - высокая; 51 - 100 - очень высокая; > 100 - революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.

Pascal ABC

Question

Информатика

Милуся

17 сентября, 03:36

Задана следующая шкала эффективности внедрения технологий (%). 0-10 - невысокая; 11-25 - средняя; 26-50 - высокая; 51 - 100 - очень высокая; > 100 - революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.

Pascal ABC

+3

Ответы (1)

Знаете ответ на вопрос?

Настасия · Answer 1

Var

p:integer;

begin

Write ('Укажите процент эффективности: ') ; Read (p) ;

case p of

0 ... 10:Writeln ('Невысокая') ;

11 ... 25:Writeln ('Средняя') ;

26 ... 50:Writeln ('Высокая') ;

51 ... 100:Writeln ('Очень высокая') ;

else Writeln ('Революционная')

end

end.