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