Задать вопрос
27 ноября, 02:08

Помогите составить программу в Paskal ABC

Лицензионный сбор взимается в

следующих размерах к минимальной месячной оплате труда в зависимости от

действия лицензии: до 1 года - 30%, от 1 до 2 лет - 40%, от 2 до 3 - 50%, от 3

до 4 лет - 60%, от 4 до 5 - 70%. В случае утери лицензии сбор 20% от

первоначального сбора. Составьте программу определения лицензионного сбора.

+1
Ответы (1)
  1. 27 ноября, 06:06
    0
    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
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите составить программу в Paskal ABC Лицензионный сбор взимается в следующих размерах к минимальной месячной оплате труда в ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы