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.

Answer 2

Шкала эффективности внедрения технологий, которую вы предоставили, кажется довольно четкой. Теперь давайте создадим программу на языке Pascal ABC, которая принимает значение эффективности внедрения технологий в процентах и выводит соответствующую словесную характеристику.

program TechnologyEfficiency;

var
  efficiencyPercentage: integer;

begin
  // Введите значение эффективности внедрения технологий
  write('Введите эффективность внедрения технологий (%): ');
  readln(efficiencyPercentage);

// Определение словесной характеристики
  if efficiencyPercentage < 0 then
    writeln('Введено некорректное значение. Пожалуйста, введите число от 0 до 100.')
  else if efficiencyPercentage <= 10 then
    writeln('Невысокая эффективность внедрения технологий.')
  else if efficiencyPercentage <= 25 then
    writeln('Средняя эффективность внедрения технологий.')
  else if efficiencyPercentage <= 50 then
    writeln('Высокая эффективность внедрения технологий.')
  else if efficiencyPercentage <= 100 then
    writeln('Очень высокая эффективность внедрения технологий.')
  else
    writeln('Революционная эффективность внедрения технологий.');

// Пауза перед закрытием программы
  readln;
end.

Эта программа запрашивает у пользователя ввод значения эффективности внедрения технологий в процентах и затем выводит соответствующую словесную характеристику в соответствии с предоставленной шкалой. При вводе значения менее 0 или более 100 программа сообщит о некорректном вводе.