Помогите составить программу в Paskal ABC Лицензионный сбор взимается в следующих размерах к минимальной месячной оплате труда в зависимости от действия лицензии: до 1 года – 30%, от 1 до 2 лет – 40%, от 2 до 3 – 50%, от 3 до 4...

Помогите составить программу в Paskal ABC  Лицензионный сбор взимается в следующих размерах к минимальной месячной оплате труда в зависимости от действия лицензии: до 1 года – 30%, от 1 до 2 лет – 40%, от 2 до 3 – 50%, от 3 до 4 лет – 60%, от 4 до 5 – 70%. В случае утери лицензии сбор 20% от первоначального сбора. Составьте программу определения лицензионного сбора.
Гость
Ответ(ы) на вопрос:
Гость
var   z, s: real;   n, p: integer; begin   Write('Введите размер оплаты труда: ');   Readln(z);   Write('Лицензия первичная (1) или повторная (2)? ');   Readln(p);   Writeln('На сколько лет выдается лицензия?');   Writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,');   Write('3 - 3-4 года, 4 - 4-5 лет: ');   Readln(n);   case n of     0: s := 0.3 * z;     1: s := 0.4 * z;     2: s := 0.5 * z;     3: s := 0.6 * z;     4: s := 0.7 * z;   else s := 1e9   end;   if p = 2 then s := 0.2 * s;   Writeln('Сумма лицензионного сбора составит ', s:0:2) end. Тестовое решение: Введите размер оплаты труда: 26400 Лицензия первичная (1) или повторная (2)? 1 На сколько лет выдается лицензия? 0 - до года, 1 - 1-2 года, 2 - 2-3 года, 3 - 3-4 года, 4 - 4-5 лет: 2 Сумма лицензионного сбора составит 13200.00
Не нашли ответ?
Ответить на вопрос
Похожие вопросы