Const a = 5.8; Pi = 3.14;var x, y, k, P, S, t: real;begin t := sqrt(sin(x - 4)); x := -3; while (x <= 3) do begin if (t < 5) then y := sin(Pi / 2 + x) / cos (Pi / 2 - x) else y := Ln(a + x) / Power(a, 2); if (y < 0) then k := k + 1; writeln('x = ', x, '; y = ', y);
x := x + 0.5;
end;
if (t >= 0) then
begin
P := P * t;
{Сюда вставить нужно вычисление S, я не понял, что значит тот знак:)}
end;
Writeln('k = ', k, '; P = ', P, '; S = ', S);
<span>end.</span>
Из возможных символов у нас
, то есть, работая с размещениями, получим
комбинаций
В Excel нет размещений, но есть комбинации, тогда
Код программы в файле. Только я хз что значит линейная и написал через цикл for.
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.
Если на клавиатуре написать это слово переключив её на английский язык, получится слово augud которое переводится как дыры.
(можете проверить!)
