Задана следующая шкала эффективности внедрения технологий(%). 0-10 – невысокая; 11-25 – средняя; 26-50 – высокая; 51 – 100 – очень высокая; больше 100 – революционная. Составить программу, которая по введенной эффективности в...
Задана следующая шкала эффективности внедрения технологий(%). 0-10 – невысокая; 11-25 – средняя; 26-50 – высокая; 51 – 100 – очень высокая; > 100 – революционная. Составить программу, которая по введенной эффективности выдает ее словесную характеристику.
Pascal ABC
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы