Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
<span>end.
Пример:
x=-4
f(x)=9.000
Блок-схема - в прилагаемом файле.</span>
Begin
var arr := arrGen(ReadInteger('Введите n: '), e -> ReadInteger()).Println().ToArray();
var sum := arr.Skip(arr.Length - 5).Sum();
Println(sum);
arr[0] := arr[0] < 0 ? arr[0] : sum;
arr.Println();
end.
1. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 5
2. Наполнить меньший бурдюк водой и перелить её часть в больший, наполнив его.
Результат: меньший - 2, больший - 8.
3. Вылить всю воду из большего бурдюка а затем перелить из меньшего в больший.
Результат: меньший - 0, больший - 2.
4. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 7.
Измениение- перемена параметров