Определить значение целочисленной переменной s: a) s: =128 для i от 1 до 4 повторять нц s: =s-3 кц б) s: =0 для i от 1 до 2 повторять нц для j от 2 до 3 повторять нц s: =1+j кц кц
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
Б=4. Здесь заметим, что все зависит от последнего значения j