Для введення в форму даних, які можуть мати тільки одне з двох допустимих значень, призначені елементи управління CheckBox, або прапорці. Прапорці дозволяють користувачеві дати відповідь на поставлене запитання. У разі позитивної відповіді користувач встановлює прапорець, і він набуває вигляду квадрата, в якому розміщена галочка. При невстановленому прапорці він має вигляд порожнього квадрата, позначаючи негативну відповідь на поставлене запитання. Можливий ще один стан прапорця, при якому він не визначений. У цьому стані він має вигляд галочки на сірому тлі.
Объяснение:
Первыми переправляются дети.
Сын возвращается к маме-папе.
Папа едет на берег к дочери, потом дочь едет за братом и возвращается с ним к папе.
Сын едет к маме, отдает ей лодку, чтобы она переплыла к папе и дочери.
После того, как мама переправилась, дочь садится в лодку и едет к брату, подбирает его, и вместе они едут к родителям.
Дочь остается с родителями, а сын едет к рыбаку, отдает ему лодку.
Рыбак едет к родителям и высаживается.
Дочь садится и едет за братом, привозит его с собой обратно (наконец-то вся семья снова вместе), они отдают лодку рыбаку.
Лодка пересекла реку 13 раз.
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