Progran Znanija;
var x, y:integer;
begin
readln(x);
if x<10 then
y:=2*x+x-5;
else
begin
if x<13 then
y:=5*x*x-x;
else
y:=7*x-5;
end
writeln(y);
end.
Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Нам дано, что на борту есть кок и капитан, т.е:
1) 15 голов - 1 кок - 1 капитан = 15-2= 13 - это количество матросов и котов вместе
Дальше нам сказано, что всего ЛАП И НОГ - 41:
2) От общего количества 41 - 1 нога капитана (т.к. было сказано, что капитан ОДНОНОГИЙ) - 2 ноги кока = 41 - 3 = 38 ног матросов и лап котов.
А дальше я сделала методом подбора, и у меня получилось 6 котов, 7 матросов, ну и кок с капитаном.
Проверка:
6*4 + 7*2 +1 + 2 = 41 ног и лап
6 + 7 + 1 + 1 = 15 голов
Переведем в биты: 16 это 2^4, кбайт это 2^10*2^3, получим 2^17 бит.