Все четырёхугольники кроме треугольника.
стороны равны в- первом, второй ряд вторая фигура,и квадрат
Var i, n, sum: integer;
begin
readln(n);
for i:=1 to n do if i mod 2=0 then sum:=sum+i;
writeln(sum);
end.
А конечно!!! Звуковая карта не такая уж и легкая схема!!
Dim Massiv(9) As Integer
Dim Max As Integer
Dim x As Integer
Max = Massiv(0)
For x = 1 To 9
If Massiv(x) > Max Then Max = Massiv(x)
Next<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535</span><span>
MsgBox(Max)</span>