Вот, держи задачу))
var x: integer;
t,y: real;
begin
writeln('x = ');
readln(x);
t := x - (exp(ln(x)*3))/6 + exp(ln(10)*x) - 7.3;
writeln('t = ',t:0:5);
begin
if x <= 0 then
begin
y := 17.9 + exp(ln(x)*2);
end;
if (0 < x) and (x <= 1) then
begin
y := sqrt(x + 2);
end;
if x > 1 then
begin
y := ln(x - 1);
end;
writeln('y = ',y:0:5);
end;
end.
//Pascal ABC.NET 3.1 сборка 1219
Var
ai,n1,n2,i,k,max:integer;
begin
readln(ai);
read(n1);
max:=-1;
k:=1;
for i:=2 to ai do
begin
read(n2);
if n2>=n1 then
begin
inc(k);
n1:=n2;
end
else
begin
k:=1;
n1:=n2;
end;
if k>max then max:=k;
end;
if max=-1 then writeln('1') else writeln(max);
end.
Пример ввода:
6
2
2
1
3
4
1
Пример вывода:
3
67108864 байт.
Это если слева 1/16 Гбайт, т.е. 0,0625 Гбайт.
Нам дано, что на борту есть кок и капитан, т.е:
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 голов
Можно рисовать в Paint просто что угодно или граффики в Exel
