Проверено в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
s: integer;
begin
for var i := 300 to 400 do
if (i mod 4) = 0 then
s := s + 1;
Print(s);
end.
F= ¬A*B+A*¬B
F=A⊕B
------------------------
A B F
0 0 0
0 1 1
1 0 1
1 1 0
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>
Получившийся ответ: Капюшон
Удачи:3
<span>Бант - рант - рана - раса - роса - коса</span>