Нам дано, что на борту есть кок и капитан, т.е:
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 голов
Ширина:12-4=8см
Периметр:12*2+8*2=40см
Площадь:12*8=96см(квадратних)
1)
var a,c:real; b:integer;
begin
for b:=2 to 7 do
begin
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
2)
var a,c:real; b:integer;
begin
b:=1;
while b<7 do
begin
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
end;
end.
3)
var a,c:real; b:integer;
begin
b:=1;
repeat
b:=b+1;
c:=cos((2*b+1)/2-1);
a:=0.4*c*c;
writeln('b = ',b,', a = ',a:5:3);
until b=7;
end.
Результат:
b = 2, a = 0.002
b = 3, a = 0.257
b = 4, a = 0.351
b = 5, a = 0.018
b = 6, a = 0.201
b = 7, a = 0.381
1)
begin
var n:=ReadLnInteger('Введите двузначное число: ');
writeln('Десятки: '+(n div 10));
writeln('Единицы: '+(n mod 10));
end.
2)
begin
var b:=ReadLnInteger('Введите размер в байтах: ');
writeln((b div 1024) + ' Кбайт и ' + (b mod 1024) + ' бит');
end.
3)
var n:=ReadLnInteger('Введите двузначное число: ');
writeln((n mod 10)*10+n div 10);
end.
4)
begin
var n:=ReadLnInteger('Введите трехзначное число: ');
writeln((n mod 10)*100+(n div 10 mod 10)*10+n div 100);
end.
5)
begin
var n:=ReadLnInteger('Введите количество секунд: ');
writeln('Количество полных минут, прошедших с начала последнего часа: ', N mod 3600 div 60);
writeln('Количество секунд, прошедших с начала последней минуты: ', N mod 60);
end.