Question

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

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.